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