خطأ في التعديل و الإضافة

القيم لا تقراء كلها مثل التاريخ

أخي الكريم أعرف أن التاريخ لا يقرأ مثل باقي القيم ، فهل من الممكن إصلاح الكود في المثال

و لكم الشكر

انظر التعديل

   Private Sub SaveRecC()

        Dim strADD As String = ""
        Dim dDate As String = "#" & grControl.Rows(grControl.Rows.Count - 2).Cells(0).Value & "#"
        If blNew = True Then
            strADD = "INSERT INTO PregControl (IDp,DateA,Pulse,Ausculate,Wieght,Placent,Comming,BP,[Note]) VALUES ("
            strADD = strADD & Val(txtID.Text) & "," & dDate & ",' "
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(1).Value & "','"
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(2).Value & "','"
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(3).Value & "','"
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(4).Value & "','"
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(5).Value & "','"
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(6).Value & "','"
            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(7).Value & "') "
        Else
            strADD = "UPDATE PregControl Set DateA =" & dDate & ","
            strADD = strADD & "Pulse ='" & grControl.CurrentRow.Cells(1).Value & "',"
            strADD = strADD & "Ausculate ='" & grControl.CurrentRow.Cells(2).Value & "',"
            strADD = strADD & "Wieght ='" & grControl.CurrentRow.Cells(3).Value & "',"
            strADD = strADD & "Placent ='" & grControl.CurrentRow.Cells(4).Value & "',"
            strADD = strADD & "Comming ='" & grControl.CurrentRow.Cells(5).Value & "',"
            strADD = strADD & "BP ='" & grControl.CurrentRow.Cells(6).Value & "',"
            strADD = strADD & "[Note] ='" & grControl.CurrentRow.Cells(7).Value & "' "
            strADD = strADD & " WHERE IDp =" & Val(txtID.Text) 
        End If
        MsgBox(strADD)
        Dim cmdAddR As New OleDbCommand(strADD, gConn)
        cmdAddR.CommandType = CommandType.Text

        cmdAddR.ExecuteNonQuery()
        blNew = False
        cmdAddR.Dispose()

    End Sub

السلام عليكم

شكرا لك أخي الكريم ... إنك بحق مبرمج عظيم

جزاك الله خيراً

اولا العظم لله فقط تحري الدقة في القول حتي لا يذهب بك الشيطان الي الشر اعاذك الله من الشيطان

ثانيا لا شكر علي واجب