Private Sub oGridAuftrag_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, bCancel As Boolean)
Dim frm As frmKal
    If nCol = oGridAuftrag.GetCol("stkdb_matauftrag_bereit") Then
        Set frm = frmKal
        frm.Calendar1.value = Date
        frm.Show
        With oGridAuftrag.Recordset
            .Fields("stkdb_matauftrag_bereit").value = frm.Tag
            .Update
        End With
        oGridAuftrag.RowRefresh
        bCancel = True
    End If
    Set frm = Nothing
End Sub