Sende Timeofday til en access db

Er der nogen der ved hvordan man for følgende til at virke i VB.NET  :

Public Sub updatedb(ByVal fldInitials As String)
        OleDbDataAdapter1.SelectCommand.Parameters("fldInitials").Value = fldInitials
        OleDbDataAdapter1.SelectCommand.Parameters("fldStartDate").Value = CDate(Date.Today.ToShortDateString)
        OleDbDataAdapter1.Fill(DataSet11)
        Dim dr As DataSet1.tblCheckinDataRow
        dr = DataSet11.tblCheckinData.FindByfldInitialsfldStartDate(fldInitials, CDate(Date.Today.ToShortDateString))
        If Not dr Is Nothing Then
            ' mytime = TimeOfDay
            dr.fldEndDate = CDate(Date.Today.ToShortDateString)
            dr.fldEndTime = CDate(TimeOfDay)
            dr.fldTotalTime = CInt(7)
        End If
        OleDbDataAdapter1.Update(DataSet11)
        DataSet11.Clear()
    End Sub

når den sender dr.fldEndTime til access så laver access den tid om til 00:00 istedet for f.eks. 09:37 som vb.net også finder (kan jeg se ved debug)