Run time 424 Inserimento in Db con DAO

[sara81it]

Hola gente!! problema con insert into!

Private Sub cmdins_Click()
Dim tipo, nome, rifint, ind As String
Dim r As String
Dim rs As Recordset
Dim db As Database
Dim sql As String

nome = Replace(txtnome.Text, "'", "''")
ind = Replace(txtind.Text, "'", "''")
rifint = Replace(txtrifint.Text, "'", "''")
tipo = Replace(txtmod.Text, "'", "''")
        Set db = OpenDatabase(App.Path & "\alfaRomeo.mdb")
        sql = "Insert into Clienti (Ragso,Indirizzo,Cap,Città,Provincia,PIva,Telefono,Fax,Email,RifInt,Modello,Targa,Telaio) values('" & nome & "', '" & ind & "', '" & txtcap.Text & "', '" & txtcitta.Text & "', '" & txtprov.Text & "', '" & txtpiva.Text & "','" & txttel.Text & "' ,'" & txtfax.Text & "', '" & txtemail.Text & "', '" & rifint.Text & "', '" & tipo & "', '" & txttarga.Text & "', '" & txttelaio.Text & "')"
        db.Execute (sql)
        r = MsgBox("Inserimento avvenuto correttamente", vbInformation, "Inserimento")

End Sub

secondo voi dov'è l'errore??

dice necessario oggetto!!

proprio non capisco!

Sara

[sara81it]

fatto errore trovato!!

grazie cmq Sara