mi sto avvicinando... ma mi da lo stesso errore.
Il mio scopo è mettere in una variabile di testo il contenuto di un campo ed elaborarlo (dovrò individuare il testo tra le virgolette)
Per tutti i record (immagino che dovrò fare un ciclo for... fino ad arrivare al EOF)

Private Sub Comando3_Click()
Dim RS As New ADODB.Recordset
Dim valore
Dim strCompare As String
strCompare = "allarme se 1"
strSQL = "SELECT Interpretazione_limiti FROM DB_Monocircuito WHERE Interpretazione_limiti = strCompare"
RS.Open strSQL, CurrentProject.Connection
valore = RS!Interpretazione_limiti
MsgBox valore
End Sub