Private Sub Form_Load()
 
'Datenbank öffnen
Dim Db As Database
Dim rs As Recordset
Dim dbFile As String
 
dbFile = "D:\db.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set rs = Db.OpenRecordset("kriterium")
 
Do While rs.EOF = False
lst_kriterium.AddItem rs!Name
lst_kriterium.ItemData(lst_kriterium.NewIndex) = rs("id")
rs.MoveNext
Loop
 
End Sub
 
Private Sub lst_kriterium_Click()
 
Dim nID As Long
nID = lst_kritrium.ItemData(lst_kriterium.ListIndex)
rs.FindFirst "ID = " & CStr(nID)
Text1.Text = rs("f1")
 
End Sub