Dim sql As String =
"INSERT INTO " & _
" [govschool] ( [dateres], [compname], [governorate], [suprvname], [cinemano], [musuemsno], [vistrsno], [freeno], [simulno], [gerono], [phone], [mobile], [orphansno], [note] ) " & _
" VALUES ( @dateres, @compname, @governorate, @suprvname, @cinemano, @musuemsno, @vistrsno, @freeno, @simulno, @gerono, @phone, @mobile, @orphansno, @note ) "
Dim cmd As New OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("@dateres", Dtpdateres.Value)
cmd.Parameters.AddWithValue("@compname", Txtcompname.Text)
cmd.Parameters.AddWithValue("@governorate", Txtgovernorate.Text)
cmd.Parameters.AddWithValue("@suprvname", Txtsuprvname.Text)
cmd.Parameters.AddWithValue("@cinemano", Txtcinemano.Text)
cmd.Parameters.AddWithValue("@musuemsno", Txtmusuemsno.Text)
cmd.Parameters.AddWithValue("@vistrsno", Txtvistrsno.Text)
cmd.Parameters.AddWithValue("@freeno", Txtfreeno.Text)
cmd.Parameters.AddWithValue("@simulno", Txtsimulno.Text)
cmd.Parameters.AddWithValue("@gerono", Txtgerono.Text)
cmd.Parameters.AddWithValue("@phone", Txtphone.Text)
cmd.Parameters.AddWithValue("@mobile", Txtmobile.Text)
cmd.Parameters.AddWithValue("@orphansno", Txtorphansno.Text)
cmd.Parameters.AddWithValue("@note", Txtnote.Text)
cmd.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح")