' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private DB As ADODB.Connection
Private RS As ADODB.Recordset
 
Private Sub cmdSpeichern_Click()
    RS("Datum") = IIf(txtDatum.Text = "", Null, txtDatum.Text)
    RS.Update
End Sub
 
Private Sub cmdVor_Click()
    RS.MoveNext
 
    If RS.EOF Then
      RS.MoveFirst
    End If
 
    DatenLesen
End Sub
 
Private Sub cmdZurück_Click()
    RS.MovePrevious
 
    If RS.BOF Then
      RS.MoveLast
    End If
 
    DatenLesen
End Sub
 
Private Sub Form_Load()
Dim SQL As String
 
    Set DB = New ADODB.Connection
 
    DB.CursorLocation = adUseClient
    DB.Provider = "Microsoft.Jet.OLEDB.4.0"
    DB.Open "C:\DeineDatenbank.mdb"
 
    Set RS = New ADODB.Recordset
 
    SQL = "SELECT * FROM DeineTabelle"
 
    RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
    DatenLesen
 
End Sub
 
Private Sub DatenLesen()
    txtDatum.Text = IIf(IsNull(RS("Datum")), "", RS("Datum"))
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    RS.Close
    Set RS = Nothing
    DB.Close
    Set DB = Nothing
End Sub