Dim MyConn As ADODB.connection Set MyConn = New ADODB.connection Dim MyRecSet1 As New ADODB.Recordset MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb" MyConn.Open MyConn.Execute ("INSERT INTO table1 VALUES('" + Text1.Text + "','" + Text2.Text + "','" + Text3.Text + "')") MsgBox "The record was added to database", vbInformation, "Succesfull adding" MyConn.Close
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)