Private Sub Command1_Click()
List2.Clear
Dim myDB As Database
Dim myRec As Recordset
'
Set myDB = OpenDatabase(DatabasePfad.Caption)
Set myRec = myDB.OpenRecordset("Select ID from" & _
  "IS000#ALGFeuchteInnenIst#00_Istwert")
myRec.FindFirst "ID = 2"
While Not myRec.EOF
List2.AddItem myRec.Fields(0) & ""
myRec.MoveNext
Wend
 
myDB.Close
End Sub