Option Explicit
Dim Hersteller As String
Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim pathdb As String
 
 
Private Sub Combo1_DblClick()
Hersteller = Combo1.Value
 
pathdb = athdb = App.Path + "\probase.mdb"
Set db = OpenDatabase(pathdb)
 
sql = "select * from prodata where (((prodata.Hersteller) = " & Hersteller & _
  "));"
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
Do While rs.EOF = False
List1.AddItem rs!Model
rs.MoveNext
Loop
 
End Sub
 
Private Sub Form_Load()
 
Combo1.AddItem "NEC", 0
Combo1.AddItem "Optoma", 1
Combo1.AddItem "Toshiba", 2
Combo1.AddItem "BenQ", 3
Combo1.AddItem "Sharp", 4
End Sub