Dim wsp As Workspace
Dim db As Database
Dim rec As Recordset
 
Private Sub Command1_Click()
On Error GoTo errHandler
 
    rec.MovePrevious
    LeereAlles
    SetzeBilder
    Exit Sub
 
errHandler:
    MsgBox "Geht nicht weiter zurück, wir sind doch schon am Anfang!"
End Sub
 
Private Sub Command2_Click()
On Error GoTo errHandler
 
    rec.MoveNext
    LeereAlles
    SetzeBilder
    Exit Sub
 
errHandler:
    MsgBox "Geht nicht weiter vor, wir sind doch schon am Ende!"
End Sub
 
Private Sub Form_Load()
 
Set wsp = DBEngine.Workspaces(0)
Set db = wsp.OpenDatabase("C:\Dokumente und Einstellungen\kraemerj\Eigene" & _
  "Dateien\db2.mdb")
Set rec = db.OpenRecordset("Tabelle1")
 
rec.MoveFirst
SetzeBilder
End Sub
 
Private Sub LeereAlles()
    For i = 0 To 3
        Text(i).Text = ""
        Pic(i).Picture = Nothing
    Next i
End Sub
 
Private Sub SetzeBilder()
    For i = 0 To 3
        nummer = i + 1
        pfadbild = rec.Fields("Bild" & nummer).Value
        If IsNull(pfadbild) Then
        'cdfcdf
        Else
            Text(i).Text = pfadbild
            Pic(i).Picture = LoadPicture(pfadbild)
        End If
    Next i
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    rec.Close
    db.Close
End Sub