[جميل علي]

في البداية يجب عليك تغير نوع الحقل T2 إلى نص 
لأن على حسب ما اعلم الحقل من النوع تاريخ/وقت لا يقبل انكون القيمة فارغه
بعد تغير نوع الحقل أستخدم الكود التالي في جملة الحفظ

PHP كود :

 If Trim(user_name.Text) = "" Then
            MsgBox("ادخل اسم المستخدم", MsgBoxStyle.Critical, "خطأ")
            user_name.Focus()
            Exit Sub
        End If

        If Trim(user_password.Text) = "" Then
            MsgBox("ادخل كلمة المرور", MsgBoxStyle.Critical, "خطأ")
            user_password.Focus()
            Exit Sub
        End If

        If Trim(user_password.Text) <> Trim(user_password1.Text) Then
            MsgBox(" كلمة المرور غير مطابقة", MsgBoxStyle.Critical, "خطأ")
            user_password.Focus()
            Exit Sub
        End If
        If Trim(T2.Text) = "" Then
            MsgBox(" كلمة المرور غير مطابقة", MsgBoxStyle.Critical, "خطأ")
            T2.Focus()
            Exit Sub
        End If
        Dim sql = "select * from user_data where user_name='" & user_name.Text & " '"
        Dim adp = New OleDb.OleDbDataAdapter(sql, DBConn)
        Dim ds = New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)

        If dt.Rows.Count > 0 Then
            MsgBox("اسم المستخدم موجود مسبقاً", MsgBoxStyle.Critical, "تنبيه")
            user_name.Focus()
            Exit Sub
        End If
        Dim dr = dt.NewRow
        dr!user_name = user_name.Text

        If T2.CustomFormat = " " Then
            dr!T2 = DBNull.Value
        Else
            dr!T2 = T2.Value
        End If
        dr!user_password = user_password.Text
        dr!P1 = P1.Checked
        dr!P2 = P2.Checked
        dr!P3 = P3.Checked
        dr!P4 = P4.Checked
        dr!P5 = P5.Checked
        dr!P6 = P6.Checked
        '========= حفظ البيانات في الجدول
        dt.Rows.Add(dr)

        '============ حفظ التغيرات الجديده في قاعده البيانات الرئيسية
        Dim cmd = New OleDb.OleDbCommandBuilder(adp)
        adp.Update(dt)
        Button1_Click(sender, e)
        MsgBox("تمت عملية الاضافة", MsgBoxStyle.Information, "رسالة تأكيد")