code]
Private Sub Command1_Click()
 
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
 
Dim Abfrage As String
Dim Such As String
Dim Cbo As String
Dim Tex As String
 
On Error Resume Next
 
Such= "Select Jannuar.* , Februar.*  From Jannuar, Februar  Where"
 
Cbo = Combo1.Text
Tex = txtAbfrage.Text
 
Abfrage = Such & Cbo & " LIKE " & "'" & Tex & "*'"
 
dbFile = App.Path + "\Daten.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile) ', False, False)
 
Set Tabelle = Db.OpenRecordset(Abfrage) ' <<<
Label3.Caption = Data1.Recordset.Fields.Count
 
Data1.DatabaseName = dbFile
Set Data1.Recordset = Tabelle
Data1.Recordset.MoveLast