niente da fare!
mi da questo errore:



e questo è il listato coimpleto del pulsante:

Private Sub Comando0_Click()

Dim rs As ADODB.Recordset, conn As ADODB.Connection, strSQL As String
Dim tes As Form

Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset

strSQL = "SELECT * FROM tab"

rs.Open strSQL, conn

If rs.EOF Then
MsgBox "Non ci sono records!"
Else

If IsNull(Me![nome]) Then
MsgBox "Vuoto!"
Else

<qui da l'errore> rs!nome = Me.nome.Text
rs!cognome = Me.cognome.Text
MsgBox "Scrittura Ok"
rs.Update
rs.Close
Set rs = Nothing

End If
End If

End Sub