[VB 6] - Non inserisce il record nel database

[buba88]

raga ho un problema
nn riesco a inserire un record in un database
vi posto il codice

in un modulo :

Public conn As ADODB.Connection
Public rs_c As ADODB.Recordset
Public rs_s As ADODB.Recordset

Public Sub OpenConn()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseServer
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & PathDB
Set rs_c = New ADODB.Recordset
rs_c.CursorLocation = adUseServer
Set rs_s = New ADODB.Recordset
rs_s.CursorLocation = adUseServer
End Sub

poi sempre nel modulo mi scrivo una function che ha il compito di inserire un record nel database

Public sub nuovo_cliente(Cliente As String, Indirizzo As String, Telefono As String, _
                               Cellulare As String, Note As String)
                               
Dim varNomi As Variant, varValori As Variant

varNomi = Array("cliente", "indirizzo", "telefono","cellulare", "note")

varValori = Array(Cliente, Indirizzo, Telefono, Cellulare, Note)

rs_c.Open "SELECT * FROM CLIENTI", conn, adOpenKeyset, adLockBatchOptimistic, adCmdText

rs_c.AddNew

rs_c.Update varNomi, varValori

MsgBox "Cliente Creato", vbOKOnly, Titolo

rs_c.Close

End sub

dopodiche rikiamo questa routine da un form ma nn aggiunge il record
qualcuno mi sa dare una mano?

[buba88]

nessuno sa darmi una mano?

[buba88]

beh ho risolto da solo
per risolvere ho sostituito il parametro adLockOptimistic con adLockPessimistic nella riga:

rs_c.Open "SELECT * FROM CLIENTI", conn, adOpenKeyset, adLockPessimistic, adCmdText