VBA-Code DB-Teilung

[PCDummy]

Hi,

ich habe mal wieder ein Problem.
Der folgende Code funktioniert in meiner DB wunderbar. Nun will ich die DB in Front- und Backend aufteilen und schon funzt der Code nicht mehr hat einer pls eine Idee.
Die Verknüpfungen stimmen.^^

Private Sub Form_Current() 
    Dim db As DAO.Database 
    Dim rst As DAO.Recordset 
    Set db = CurrentDb() 
    Set rst = db.OpenRecordset("Parameter", dbOpenTable, dbDenyWrite) 
    rst.MoveFirst 
    pfad = rst!Verz 
    rst.Close 

    On Error GoTo form_error 
    Me.Bild39.Picture = pfad & "\" & Trim(Mid(Me.Vorname, 1, 3)) & Trim(Me.Nname) & ".jpg" 
    Exit Sub 
form_error: 
    If Err.Number = 2220 Then 
    Me.Bild39.Picture = pfad & "\" & "logo.jpg" 
    Resume Next 
    End If 
    
End Sub

Pls help
PC Dummy

Ergänzung (17. März 2010)

Hab die Lösung:

dbOpenTable rausnehmen.

Jetzt funzt es.

Thx @ all