Option Explicit
Dim Db As Database
Dim rs As Recordset
 
Private Sub cmdend_Click()
End
End Sub
 
Private Sub cmdmovefirst_Click()
If rs.RecordCount > 0 And Not rs.BOF Then rs.MoveFirst
End Sub
 
Private Sub cmdmovelast_Click()
If rs.RecordCount > 0 And Not rs.EOF Then rs.MoveLast
End Sub
 
Private Sub cmdmovenext_Click()
If rs.RecordCount > 0 And Not rs.EOF Then rs.MoveNext
End Sub
 
Private Sub cmdmoveprevius_Click()
If rs.RecordCount > 0 And Not rs.BOF Then rs.MovePrevious
End Sub
 
Public Sub Form_Load()
Dim dbFile As String
 
dbFile = App.Path + "\cds.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set rs = Db.OpenRecordset("cddaten")
 
txttitel.Text = rs("cdtitel")
txtinterpret.Text = rs("cdinterpret")
 
End Sub