Problema con código - Access

[oMart]

Buenas tardes, paso a contarles un pequeño problema que tengo con un código que utiliza Recordsets (es código VB, de Access). El código como podrán ver es para copiar datos en el caso de que el valor este vacio. Hasta allí todo bien, mi problema es cuando llego a cierta línea del código que me dice que esta incorrecta, pero no se encontrar que falla, aun que supongo que será un error básico, pues recién me inicio en este tema.

Este es el código:

Private Sub Comando0_Click()
Dim rsEmpreses As Recordset
Dim rsContactes As Recordset
Dim rsBuscar As Recordset

Set rsEmpreses = New Recordset
rsEmpreses.Open "SELECT IDEMPRESA, NOM, COGNOMS, CARREC, TELEFON, EMAIL FROM Empreses", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText
Set rsContactes = New Recordset
rsContactes.Open "SELECT IdContacte, Nom, Cognoms, Telefon, Carrec, Email FROM Contactes", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText

If Not rsEmpreses.EOF And Not rsEmpreses.BOF Then
rsEmpreses.MoveFirst
While Not rsEmpreses.EOF

Set rsBuscar = New Recordset
rsBuscar.Open "SELECT * FROM Contactes WHERE id_Empresa=+ rsEmpreses!IdEmpresa", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable

(Falla esta línea, desde rsBuscar hasta adCmdTable)

If rsBuscar.RecordCount() = 0 Then
rsContactes.AddNew
rsContactes!NOM = rsEmpreses!NOM
rsContactes!COGNOMS = rsEmpreses!COGNOM
rsContactes!Telefon = rsEmpreses!Telefon
rsContactes!CARREC = rsEmpreses!CARREC
rsContactes!EMAIL = rsEmpreses!EMAIL
rsContactes!id_Empresa = rsEmpreses!IdEmpresa
End If
rsEmpreses.MoveNext
Wend
End If
End Sub

Si alguien me pudiese ayudar le estaría muy agradecido, ya que aún me estoy iniciando en este tema y necesitaria arreglar esto cuánto antes... si alguien puede darme una pista por pequeña que sea se lo agradeceria mucho.

PD: Es mi primer mensaje en este foro, no se si este mensaje va en este lugar... pero no encontré otro, pido disculpas si no lo puse bien.