Visual Basic 6 - DATABASE

cliccando sulla label vorrei interrogare il database , inserire nella text il valore di "commessa" + 1 e aggiornare il database con il nuovo valore di commessa. Non essendo un drago di database ho optato dopo la lettura di cancellare l' ultimo dato del database e caricare il nuovo ma mi da errore. Se si riuscisse a sovrascriverci o in qualche modo aggiornalo...grazie!

Private Sub Label7_Click()
 
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & App.Path & "/inserimento.mdb"

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.Open stringa
    rs.Open "Tabella1", cn, 1
    cn.Execute ("SELECT * FROM tabella1")

    
      Text2.Text = rs("commessa") + 1
      cn.Execute ("DELETE * FROM tabella1")
    
    
      rs.AddNew
      rs("commessa") = Text2.Text
     
        
    rs.Update

    Set cn = Nothing
    Set rs = Nothing

    
   
 
End Sub

L'unica imperfezione che ho visto è sul path hai sbagliato invece di "\" hai messo "/" correggilo e poi fammi sapere!

Fatta!!!! non era la "/" ma bastava togliere la stringa per svuotare il database. Per divinita' me lo fa in automatico... bah.. .

cmq strano che mi funzioni con la "/" ottimo occhio !!!!

grazie !

Non c'è di che moet