Raga che c'è che non va qui???
non mi da errori, ma non esegue il salvataggio sul Db!

Dim r As String
Dim sql As String
Dim rs As Recordset
Dim db As Database

Set db = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\Sara\Pcsystem\Tati\ Bar.mdb")
'Inserimento nel DataBase
sql = "Insert into Fornitore (Ragso,Indirizzo,Cap,Città,Provincia,PIva,Telefono ,Fax,RifInterno,Email,Sito) values('" & txtnome.Text & "', '" & txtind.Text & "', '" & txtcap.Text & "', '" & txtcitta.Text & "', '" & txtprov.Text & "', '" & txtpiva.Text & "','" & txttel.Text & "', '" & txtfax.Text & "', '" & txtRifint.Text & "', '" & txtemail.Text & "', '" & txtsito.Text & "')"
db.Execute (sql)


r = MsgBox("Inserimento avvenuto correttamentre", vbInformation, "Inserimento")

la msgbox... compare, ma se guardo poi sul db non c'è nulla!


Grazie sara