Dim DB As Database
Dim RS As DAO.Recordset
Dim BildPfad As String
 
Set DB = DBEngine.OpenDatabase(App.Path & "\dat\db.mdb")
Set RS = DB.OpenRecordset("select menue from t_menue")
 
RS.FindFirst "Menue = '" & cBox_Menue.Text & "'"
 
If Not RS.NoMatch Then
BildPfad = RS("bild")     ' HIER IST DER FEHLER
img_Menue.Picture = LoadPicture(BildPfad)
End If

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)