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).InputType = INPUT_DATE
        .Columns(2).InputMask = "##.##.####"
        '.Columns(2).DisplayFormat = "##.##.####"
        .Columns(2).Button = True
        .Columns(2).Width = 2000
        .Columns(3).Width = 4800
        .Columns(3).ColType = TYPE_COMBOLIST
        .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 = False
        .AllowEdit = True
        .AutoUpdate = True
        .AllowDelete = True
        .LockUpdate False
        .Refresh
    End With
    oRs.Close

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
        Grid1.Text(nRow, 7) = CDbl(blub)
    End If
End Sub

Private Sub grid1_BeforeAddNew(Cancel As Integer)
    Dim blub As Date
    blub = Grid1.CellNew(2)
    Grid1.CellNew(7) = CDbl(blub)
End Sub