Dim rs As New Recordset
 
Dim LiefNr As String
 
LiefNr = frmHaupt.Text1.Text    'Die eingegebene Lieferantennummer zum suchen
 
DBverbinden
 
rs.Open "Select Nummer, Name, Ort from Lieferanten where Nummer like '" & _
  LiefNr & "'", _
con, adOpenKeyset, adLockOptimistic
 
Set DataGrid1.DataSource = rs
end sub