Private rst As Recordset ' hier
 
Private Sub Command1_Click()
rst.MoveNext
Text1.Text = rst.Fields("Name")
 Text2.Text = rst.Fields("Strasse")
 Text3.Text = rst.Fields("PLZ")
End Sub
 
Private Sub Command2_Click()
rst.MovePrevious
 
Text1.Text = rst.Fields("Name")
 Text2.Text = rst.Fields("Strasse")
 Text3.Text = rst.Fields("PLZ")
End Sub
 
Private Sub form_load()
Dim db As Database
Set db = OpenDatabase("Adress.mdb")
Set rst = db.OpenRecordset("Adressen", dbOpenDynaset)
rst.MoveFirst
 
Text1.Text = rst.Fields("Name")
 Text2.Text = rst.Fields("Strasse")
 Text3.Text = rst.Fields("PLZ")
 
End Sub