Visual Basic 6 - Modifica VB6 /Access

Ciao a tutti,

attualemente uso questo cmd per inserire dei dati in un database,

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String

Private Sub cmdInserisci_Click()
  If Len(Trim(txtNome.Text)) = 0 Then
        MsgBox "Inserire il nome", vbCritical, "ERRORE"
        txtNome.SetFocus
        Exit Sub
    End If
    If Len(Trim(txtCognome.Text)) = 0 Then
        MsgBox "Inserire il cognome", vbCritical, "ERRORE"
        txtCognome.SetFocus
        Exit Sub
    End If

    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & App.Path & "\database.mdb"

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open stringa
    rs.Open "utenti", cn, 3, 3

    rs.AddNew
        rs("Nome") = txtNome.Text
        rs("Cognome") = txtCognome.Text
    rs.Update

    Set cn = Nothing
    Set rs = Nothing

    MsgBox "Inserimento effettuato", vbOKOnly, "CONFERMA"
txtNome.Text = ""
txtCognome.Text = ""

End Sub

La domanda come posso utilizzare il medesimo codice in un altro cmd per modificare i dati ?

Un grazie per la risposta

Luca

ciao, il codice ke ho visto ed hai postato lo usavo anke io..ma ho usato una nuova alternativa usare il linguaggio SQL.

Prova questo codice:

Dim conn As ADODB.Connection
Dim rs2 As ADODB.Recordset
Dim sql As String

Set conn = New ADODB.Connection

conn.Open "ci metti la connection string ke ti serve"


sql = "UPDATE barcode SET fascetta='" + Text1.Text + "' WHERE id='" + Text2.Text + "' "

conn.Execute sql 'Esegue la query

conn.Close

Con Execute puoi fare tutte le query INSERT,UPDATE,DELETE invece con
l'altro metodo ke usavi tu usalo solo x le SELECT

Spero di esserti stato d'aiuto.

Ciao,
ti sono molto grato, ma come avrai notato le mie conoscenze sono molto scarse, mi occupo pricincipalmente di vb6 con excel, ho provato il tuo codice , ma non riesco , grazie lo stesso.

Luca