Salve ragazzi,
uso questo script per ciclare il recorset ma non funziona in quanto la SELECT preleva solo il primo record della tabella; cosa sbaglio?
Grazie
codice:
    
    Dim rs As New ADODB.Recordset
    Dim sql1 As String
    ' cerca tutti i comuni inseriti
    sql1 = "SELECT nome FROM comuni"
    ' esegue la query
    rs.Open sql1, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

        Dim i As Integer
        For i = 0 To 40
            If Me.nome_comune = rs.Fields(i) Then
                messaggio = MsgBox("Comune esistente!", vbCritical)
                Exit Sub
            End If
        Next i
    ' chiude il recordset
    rs.Close
    ' distrugge il recorset
    Set rs = Nothing