' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Private Sub Command1_Click()
 RS.AddNew
  ' Wenn das Feld StartDatum in der Datenbank ein Datumsfeld ist.
  RS!StartDatum = Date
  ' Wenn das Feld StartDatum in der Datenbank ein Zeichenfeld ist.
  RS!StartDatum = CDate(Date)
 
  ' Wenn das Feld StartZeit in der Datenbank ein Datumsfeld ist.
  RS!StartZeit = Time
  ' Wenn das Feld StartZeit in der Datenbank ein Zeichenfeld ist.
  RS!StartZeit = CDate(Time)
 
  RS!Meldung = Text1.Text
 RS.Update
End Sub
 
Private Sub Form_Load()
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "d:\db1.mdb"
 
Set RS = New ADODB.Recordset
 
RS.Open "SELECT * FROM Tabelle1", DB, adOpenDynamic, adLockOptimistic
End Sub