Potresti usare un codice del genere:
codice:
Dim Conn As New OleDb.OleDbConnection
            Conn.ConnectionString = StringaConnessione
            Dim cmd As New OleDb.OleDbCommand
            Dim SQLINSERT As String

       SQLINSERT = "INSERT INTO tabella (campo1) VALUES('" & codice & "')"
            Try
                cmd.Connection = Conn
                Conn.Open()
                cmd.CommandText = SQLINSERT
                cmd.ExecuteNonQuery()
            Catch
                MessageBox.Show("Si è verificato un errore durante il salvataggio dei dati." & vbNewLine & Err.Description, "Errore" & Err.Number, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
                FornitoreSalvato = False
            Finally
                cmd.Connection.Close()
                cmd = Nothing
                Conn.Close()
                Conn = Nothing
            End Try
dove stringaconnessione è:
codice:
   Public StringaConnessione As String = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
         "ocking Mode=1;Data Source=" & percorsoDb & _
         ";Jet OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet O" & _
         "LEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended P" & _
         "roperties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Creat" & _
         "e System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:C" & _
         "ompact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transact" & _
         "ions=1"