[bassamreg]

للاسف كنت متوقع الاجابة ولكن لم يجيب احد وبعد بحث شديد لاجد الاجابة على ما ابحث وجدت الحل واقدمه للاخوة المبتدئين مثلي ليستفيدوا منه
Dim bas1 As String
bas1 = (String.Format("insert into degree(degreename, datedgree, degreeschool, schooladdres, whyregestedus, studentId) values ('{0}','{1}','{2}','{3}','{4}',{5})", ComboBox8.Text, TextBox8.Text, ComboBox9.Text, TextBox9.Text, TextBox10.Text, TextBox1.Text))
Dim cmdinsert1 As New OleDbCommand(bas1, con)
con.Open()
cmdinsert1.ExecuteNonQuery()
con.Close()
dontsave:
Dim bas2 As String
bas2 = (String.Format("insert into father(fatherName, relation, workKind, workName, phonNum, homeaddres, workplace, studentId, regesterDate) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}',{7},#{8}#)", TextBox4.Text, ComboBox2.Text, ComboBox12.Text, TextBox11.Text, TextBox6.Text, TextBox7.Text, TextBox12.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd")))
Dim cmdinsert2 As New OleDbCommand(bas2, con)
con.Open()
cmdinsert2.ExecuteNonQuery()
con.Close()

Dim bas3 As String
bas3 = (String.Format("insert into caseA(caseAstudent, caseAfather, laevewith, caseAnote, studentId, regesterDate) values ('{0}','{1}','{2}','{3}',{4},#{5}#)", ComboBox15.Text, ComboBox14.Text, TextBox14.Text, TextBox16.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd")))
Dim cmdinsert3 As New OleDbCommand(bas3, con)
con.Open()
cmdinsert3.ExecuteNonQuery()
con.Close()

Dim bas4 As String
bas4 = (String.Format("insert into caseB(caseBody, caseSil, caseName, caseBnote, studentId, regesterDate) values ('{0}','{1}','{2}','{3}',{4},#{5}#)", ComboBox5.Text, ComboBox13.Text, TextBox13.Text, TextBox15.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd")))
Dim cmdinsert4 As New OleDbCommand(bas4, con)
con.Open()
cmdinsert4.ExecuteNonQuery()
con.Close()

Dim bas5 As String
bas5 = (String.Format("insert into caseE(caseEfather, caseEmony, caseEnote, studentId, regesterDate) values ('{0}','{1}','{2}',{3},#{4}#)", ComboBox17.Text, ComboBox16.Text, TextBox17.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd")))
Dim cmdinsert5 As New OleDbCommand(bas5, con)
con.Open()
cmdinsert5.ExecuteNonQuery()
con.Close()

Dim bas6 As String
bas6 = (String.Format("insert into student(studentId, clasId, dateRegster, studentName, familyName, sexStudent, placeBorn, dateBorn, yearstudy, studentPosation, isshow, picpath) values ({0},{1},#{2}#,'{3}','{4}','{5}','{6}',#{7}#,{8},'{9}',1,@picpath)", TextBox1.Text, ComboBox6.Text, DtpReg.Value.ToString("yyyy/MM/dd"), TextBox2.Text, TextBox3.Text, ComboBox1.Text, TextBox5.Text, dtpporn.Value.ToString("yyyy/MM/dd"), ComboBox3.Text, ComboBox7.Text))
Dim cmdinsert6 As New OleDbCommand(bas6, con)
If path = Nothing Then
cmdinsert6.Parameters.AddWithValue("@picpath", picStud.Image)
GoTo without
Else
cmdinsert6.Parameters.AddWithValue("@picpath", path)
GoTo within
End If

without:
If MsgBox("هل انت متأكد انك تريد الحفظ بدون صورة الطالب ", MsgBoxStyle.YesNo, "ارجو الانتباه عند ادخال البيانات") = MsgBoxResult.No Then
Return
End If

within:
con.Open()
cmdinsert6.ExecuteNonQuery()
con.Close()

MsgBox("تم ادخال وحفظ بيانات هذا الطالب الجديد " & Environment.NewLine & TextBox2.Text & " بنجاح ", MessageBoxIcon.Information, "شكر وتقدير")

Catch ex As Exception
MsgBox(ex.Message.ToString)

Return
End Try

path = Nothing
PicInsert.Enabled = False
dgv1.Visible = False
GroupBox5.Enabled = False
BtnSave.Enabled = False
BtnNew.Enabled = True
GroupBox4.Enabled = False
GroupBox3.Enabled = False
GroupBox2.Enabled = False
GroupBox6.Enabled = False
GroupBox7.Enabled = False
GroupBox8.Enabled = False
GroupBox9.Enabled = False

End If
Return