Lo unico que he visto asi, a sido que no tenia las comillas simples se las he quitado y hacer lo mismo. Tambien he porbado a dejarlo asi : = & text3 y = text3 pero todos dan el mismo error te dejo este:
Código vb:
Ver original'Insertamos el importe de los clientes en un text
Set rsPagosDevoluciones = New Recordset
With rsPagosDevoluciones
.Source = "SELECT sum(Pagosdevoluciones.Importe) as sumitamia FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente = Pagosdevoluciones.IdCliente WHERE Clientes.IdCliente= " & Text3 & " group by idcliente"
.LockType = adLockBatchOptimistic
End With
rsPagosDevoluciones.Open Options:=adCmdText
Text7.Text = rsPagosDevoluciones!importe
edito: Acabo de comprobarlo y es como lo tengo en el codigo, dado que text3 es numerico, he probado las formas que te he dicho y en la interrupcion me sale vacio pero con las comillas simples me sale el codigo que selecciono
saludos