' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private DB As ADODB.Connection
Private RS As ADODB.Recordset
 
Private Sub Form_Load()
Dim SQL As String
 
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\Deine.mdb"
 
Set RS = New ADODB.Recordset
 
SQL = "SELECT * FROM DeineTabelle"
 
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
Set DataGrid1.DataSource = RS
 
End Sub
 
Private Sub Text1_Change()
 
If Text1.Text <> "" Then
' Falls aktion eine Textfeld ist:
  RS.Filter = "aktion= '" & Text1.Text & "'"
 
' Falls aktion eine Zahlenfeld ist:
' RS.Filter = "aktion=" & Text1.Text
Else
  RS.Filter = adFilterNone
  RS.Requery
End If
 
End Sub