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
   txttitel.Text = rs("cdtitel")
   txtinterpret.Text = rs("cdinterpret")
End If
 
End Sub
 
Private Sub cmdmovelast_Click()
If rs.RecordCount > 0 And Not rs.EOF Then 
   rs.MoveLast
   txttitel.Text = rs("cdtitel")
   txtinterpret.Text = rs("cdinterpret")
End If
 
End Sub
 
Private Sub cmdmovenext_Click()
If rs.RecordCount > 0 And Not rs.EOF Then 
   rs.MoveNext
   txttitel.Text = rs("cdtitel")
   txtinterpret.Text = rs("cdinterpret")
End If
 
End Sub
 
Private Sub cmdmoveprevius_Click()
If rs.RecordCount > 0 And Not rs.BOF Then 
   rs.MovePrevious
   txttitel.Text = rs("cdtitel")
   txtinterpret.Text = rs("cdinterpret")
End If
 
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