Dim ConnnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<database_name>.mdb" Dim cn As New OleDbConnection(ConnnectionString) cn.Open() Dim db As String = "INSERT INTO <table> VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "')" Dim da As New OleDbCommand(db, cn) Dim rd As OleDbDataReader rd = da.ExecuteReader(); da.ExecuteNonQuery() cn.Close()
...Project\
...Project\Bin\
...Project\Bin\Debug
D:\MyDatabase\
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)