How to update Datefield

Question

Hi everybody,

I have this:

[code]

Sub FormToData(ByVal datObj As DataLayer.ScreenGroupItems)

        Dim newkey As Integer = 0

        Dim IRecordStatusValue As Integer = 0

        Dim IInpUserKey As String = System.DBNull.Value.ToString()

        Dim IJavaValue As String = ""

        Dim IInpChangeDateValue As Date = Date.Now.ToShortDateString()

        Dim IChangeDateValue As Date = Date.Now.ToShortDateString()

        'Dim IOrder As Integer

        If String.IsNullOrEmpty(IJavaValue.ToString().Trim) = True Then

            IJavaValue = vbNull

        End If

        Dim objMax As New DataLayer.ScreenGroupItems

        Dim newMax As Integer = 0

        objMax.GetRows(, "max(IOrder) + 1 as iOrder", , , , , )

        If objMax.Count > 0 Then

            newMax = CInt("0" & objMax.GetVal("IOrder"))

        End If

        With datObj

            .GetRow(wform.Keys)

            .SetVal("IDescriptionNL", TxtDescription.Text.Trim)

            .SetVal("IURL", TxtURL.Text.Trim())

            .SetVal("IIcon", txtIcon.Text.Trim)

            .SetVal("IToolTipNL", TxtTooltip.Text.Trim)

            .SetVal("Height", txtHoogte.Text.Trim)

            .SetVal("Width", txtBreedte.Text.Trim)

            .SetVal("IRecordStatus", IRecordStatusValue)

            .SetVal("IInpChangeDate", IInpChangeDateValue.ToShortDateString())

            .SetVal("IChangeDate", IChangeDateValue.ToShortDateString())

            .SetVal("IJava", IJavaValue)

            If .IsNewRecord Then

                .SetVal("IOrder", newMax)

            End If

            'IChangeDateValue = .UpdateRow().ToString()

            newkey = .UpdateRow()

            IInpUserKey = .UpdateRow()

        End With

        Dim objScreenGroup As New DataLayer.ScreenGroupAuthItems

        'Insert new row

        objScreenGroup.GetRows(, , "AITKey =" & newkey & "AND AIGRKey =" & wform.DetailKeys)

        If objScreenGroup.Count = 0 Then

            objScreenGroup.GetNewRow()

        End If

        objScreenGroup.SetVal("AITKey", newkey)

        objScreenGroup.SetVal("AIGRKey", SelMenuGroeplist.SelectedValue)

        objScreenGroup.SetVal("IInpUserKey", IInpUserKey)

        objScreenGroup.UpdateRow()

    End Sub

[/code]


There are 2 datefields in the database:
-IInpChangeDate - this is the field when the record is created. So will not changed when record is updated
- IChangeDate - this is the record when the record is updated. Will change when the record is updated.

Thank you