Ragazzi ! ho il seguente codice e mi continua a dare errore -1 sul recordset risultato.

Come mai ? Ecco il codice :

codice:
Public risultato As ADODB.Recordset

Dim conn  As New ADODB.Connection

Private Sub Form_Load()

    conn.ConnectionString = "DSN=ACDBOFFIC;UID=;PWD;"
    conn.CommandTimeout = 30
    conn.Open
    
    If conn.State = adStateClosed Then
        
        MsgBox ("Chiuso")
    else
        Call trova_dati
    endif

End Sub


Sub trova_dati()

Dim vCodice As Integer
Dim vCognome As String
Dim vNome As String

Set risultato = New ADODB.Recordset

Dim ricerca As String

ricerca = "Select COGNOME, NOME from anacli"

Set risultato = conn.Execute(ricerca)


If risultato.RecordCount > 0 Then

       Set txtcogn.DataSource = risultato
       txtcogn.DataField = "COGNOME"

       Set txtnome.DataSource = risultato
       txtnome.DataField = "NOME"

End If

End Sub