Private Sub Form_Load()
 
    Set oConn = New ADODB.Connection
    oConn.Open connstring
    Dim sSQL As String
    Dim oRs As New ADODB.Recordset
 
    sSQL = "select usersession,datum,baustelle,uhrvon,uhrbis,km,dbldatum from" & _
      "fahrtenbuch where usersession = '" & globalSamAccount & "' order by" & _
      "dbldatum ASC"
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
    With Grid1
        .Clear True
 
        .FixedCol = True
        Set .Recordset = oRs
        .CreateClone = True
        .FontSize = 12
        .Columns(1).Visible = False
        .Columns(2).InputMask = "##.##.####"
        .Columns(2).InputType = INPUT_DATE
        .Columns(2).Button = True
        .Columns(2).Width = 2000
        .Columns(3).Width = 2000
        .Columns(4).Width = 1000
        .Columns(4).InputType = INPUT_TIME
        .Columns(5).Width = 1000
        .Columns(5).InputType = INPUT_TIME
        .Columns(6).Width = 1000
        .Columns(7).Visible = True
        .AllowEdit = True
        .AutoUpdate = True
        .AllowDelete = True
        .LockUpdate False
        .Refresh
    End With
    oRs.Close
End Sub

Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText As _
  String, Cancel As Integer)
    Dim blub As Date
    If nCol = 2 Then
        blub = sText
        MsgBox Grid1.Text(nRow, 7)
        Grid1.Text(nRow, 7) = CDbl(blub)
        MsgBox Grid1.Text(nRow, 7)
    End If
    Grid1.Refresh
End Sub