[ADO]+[VB6] - Salvare e Modificare un recordset!

[junx]

Ciao.
Prova così:

Dim Conn As New ADODB.Connection
Dim Recor As New ADODB.Recordset

Private Sub Form_Load()
DataSource = App.Path & "\db1.mdb"
   
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataSource
Conn.CursorLocation = adUseClient 
Conn.Open
Recor.LockType = adLockPessimistic Recor.Open "SELECT * FROM query WHERE nome='" & text1.Text & "'", Conn

set text2.dataSource= Recor
    text2.datafield = "cognome"

set text3.dataSource= Recor
    text3.datafield = "indirizzo"
end sub

fammi sapere.