حفظ السجل بدون التاريخ - نسخة قابلة للطباعة

كود :

Dim cmd As New OleDbCommand("Insert into tblVIPs(V_Name, V_DateBirth, V_IdentifNum, V_MobileN, V_PhoneN, V_Qualif, V_MaritalSt, V_Citizenship, V_CurrentPosition, V_Notes, V_PracticalFile)values(?,?,?,?,?,?,?,?,?,?,?)", Con) ' AND Sequence LIKE '" & lblID.Text & "'



        Call cmd.Parameters.AddWithValue("@V_Name", Me.txtName.Text)

        Call cmd.Parameters.AddWithValue("@V_DateBirth", Me.lblDate.Text)

        Call cmd.Parameters.AddWithValue("@V_IdentifNum", Me.txtIdentifNum.Text)

        Call cmd.Parameters.AddWithValue("@V_MobileN", Me.txtMobile.Text)

        Call cmd.Parameters.AddWithValue("@V_PhoneN", Me.txtPhone.Text)

        Call cmd.Parameters.AddWithValue("@V_Qualif", Me.RTBQualif.Text)



        Call cmd.Parameters.AddWithValue("@V_MaritalSt", Me.cmbMaritalSt.Text)

        Call cmd.Parameters.AddWithValue("@V_Citizenship", Me.txtCitizenship.Text)

        Call cmd.Parameters.AddWithValue("@V_CurrentPosition", Me.RTBCurrentPosition.Text)

        Call cmd.Parameters.AddWithValue("@V_Notes", Me.RTPNotes.Text)

        Call cmd.Parameters.AddWithValue("@V_PracticalFile", Me.RTPPracticalFile.Text)



        If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        cmd.ExecuteNonQuery()

        Con.Close()

        MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "حفظ")

كود :

If String.IsNullOrEmpty(lblDate.Text) Then

            SavInto.Parameters.AddWithValue("@V_DateBirth", SqlDbType.NVarChar).Value = DBNull.Value

        Else

            SavInto.Parameters.AddWithValue("@V_DateBirth", SqlDbType.NVarChar).Value = lblDate.Text

        End If