Dim cm As New OleDbCommand("", Con)
cm.CommandText = "insert into buy2 (buyID, date, cusid, cus, address, phone, driv, assis, carid, carnam, carqan, carnum, invtol, mdfo, baky) VALUES (@buyid,@date,@cusid,@cus,@address,@phone,@driv,@assis,@carid,@carnam,@carqan,@carnum,@invtol,@mdfo,@baky)"
cm.Parameters.AddWithValue("@buyid", TextBox1.Text)
cm.Parameters.AddWithValue("@date", DateTimePicker1.Text)
cm.Parameters.AddWithValue("@cusid", ComboBox1.Text)
cm.Parameters.AddWithValue("@cus", txtNam.Text)
cm.Parameters.AddWithValue("@address", txtAddr.Text)
cm.Parameters.AddWithValue("@phone", txtPhon.Text)
cm.Parameters.AddWithValue("@driv", ComboBox5.Text)
cm.Parameters.AddWithValue("@assis", ComboBox6.Text)
cm.Parameters.AddWithValue("@carid", ComboBox3.Text)
cm.Parameters.AddWithValue("@carnam", txtCnam.Text)
cm.Parameters.AddWithValue("@carqan", txtCq.Text)
cm.Parameters.AddWithValue("@carnum", txtCnum.Text)
cm.Parameters.AddWithValue("@invtol", txtbilltotal.Text)
cm.Parameters.AddWithValue("@mdfo", txtBlance.Text)
cm.Parameters.AddWithValue("@baky", txttotalBill.Text)
oncon()
Try
cm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try