you can use this code also: Public Function Query(ByVal SQL As String, ByVal OLEDBCon As OleDb.OleDbConnection, ByRef DS As DataSet) As Integer Dim DA As New OleDb.OleDbDataAdapter(SQL, OLEDBCon) Query = DA.Fill(DS) DA = Nothing End Function Public Function Execute(ByVal SQL As String, ByVal OLEDBCon As OleDb.OleDbConnection) As Integer Dim com As New OleDb.OleDbCommand(SQL, OLEDBCon) com.ExecuteNonQuery() com = Nothing End Function this is your connection string: Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=sample.mdb") code of your button save: dim strInsert as string try strInsert="Insert into table1 (field1,fields2...) Values('" & txt1 & "','" & txt2 & "'...)" con.open Execute(strInsert,con) MsgBox("Record Saved") con.close end try my code is simple.:)
Don't block the drive way of all the newbies in programming. :))