سلام برای ثبت رکورد
Dim con As OleDbConnection = New OleDbConnection con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\karim.mdb;user id=; password=;"
Dim command As OleDbCommand = New OleDbCommand
command.Connection = con
command.CommandText = "insert into k values (@id ,@name,@family,@code_m)"
command.Parameters.AddWithValue("id", Trim(TextBox1.Text))
command.Parameters.AddWithValue("name", Trim(TextBox2.Text))
command.Parameters.AddWithValue("family", Trim(TextBox3.Text))
command.Parameters.AddWithValue("code_m", Trim(TextBox4.Text))
con.Open()
command.ExecuteNonQuery()
con.Close()