sto costruendo una maschera access ho questo codice
codice:
Private Sub totale_carico_LostFocus()
cnn = CurrentProject.Connection
Dim cnnConnect      As ADODB.Connection
Dim rstFieldData    As ADODB.Recordset
Dim strConnect      As String
Dim strSQL          As String

strConnect = CurrentProject.Connection
Set cnnConnect = CurrentProject.Connection
'cnnConnect.Open strConnect

strSQL = "SELECT * FROM gestione_merce WHERE id = " & id & "  order by data "
Set rstFieldData = New ADODB.Recordset
With rstFieldData
   .CursorType = adOpenKeyset
   .LockType = adLockOptimistic
   .Open Source:=strSQL, _
      ActiveConnection:=cnnConnect, _
        Options:=adCmdText
mi da errore operatore mancante e mi evidenzia le righe :
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Source:=strSQL, _
ActiveConnection:=cnnConnect,
perchèèèèè

P.S:i campi della select esistono tutti