Private Sub Datalist1_Click()
' Deklariert eine Zeichenfolgenvariable, die eine neue Abfrage 
' enthält. Die neue Abfrage liefert einen Wert Lieferanten-Nr über
' die BoundText-Eigenschaft des DataList-Steuerelements. Die neue 
' Abfrage fragt einfach nach allen Artikeln mit der gleichen 
' Lieferanten-Nr. Diese Abfrage wird der RecordSource-Eigenschaft 
' des ADO-Datensteuerelements adoArtikel zugewiesen. Nach der 
' Aktualisierung des Steuerelements wird das DataGrid mit der neuen 
' Datensatzgruppe aller von der gleichen Firma gelieferten Artikel 
aktualisiert.
 
Dim strQuery As String
strQuery = "Select * FROM Artikel WHERE Lieferanten-Nr = " & _
Datalist1.BoundText
 
With adoArtikel
.RecordSource = strQuery
.Refresh
End With
 
With DataGrid1
.ClearFields
.ReBind
End With
End Sub

Heinz44