Option Explicit
 
Dim oDB As DAO.Database
 
Private Sub Form_Load()
  Set oDB = DBEngine.OpenDatabase("d:\temp\db10.mdb")
  With Grid1
    Set .Recordset = oDB.OpenRecordset("SELECT * FROM Tabelle1")
    .Refresh
    .AllowEdit = True
  End With
End Sub

Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText As _
  String, Cancel As Integer)
  If nCol = 3 Then
    If InStr(sText, ":") = 0 Then sText = sText & ":00"
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de