Private Sub Combo1_Click()
  Dim sSQL As String
  Dim oRs As Recordset
 
  [color=green]' SQL-Abfragestring
  sSQL = "SELECT Dokumentname FROM Dokumente WHERE Person = '" & Combo1.Text & _
    "'"
 
  [color=green]' Recordset erstellen und 2. ComboBox füllen
  Combo2.Clear
  Set oRs = Db.OpenRecordset(sSQL, dbOpenSnapshot, dbOpenForwardOnly)
  If oRs.RecordCount > 0 Then
    Do Until oRs.EOF
      Combo2.AddItem oRs(0)
      oRs.MoveNext
    Loop
  End If
  oRs.Close
  Set oRs = Nothing
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de