Access Veritabanı Tablolarında Veri Aratmak

[bluefalcon]

Arkadaşlar merhaba,

Ekli sıkıştırılmış dosyada bulunan veritabanı içerisindeki tablolarda excel sayfasının B1 hücresinde yer alan veriyi buldurarak bulunduğu tablo adını B2 hücresine yazdıramıyorum. Değerli tecrübelerinizi paylaşırsanız çok memnun olurum.

 

[bluefalcon]

Dim oConn As Object
Dim oCat As Object
Dim tbl As Object
Dim MTF As Integer
Dim aranan As String
Dim sConnString As String

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & UserDB.txtLink & ";" & "Jet OLEDB:Database Password=" & "562Tamam" & ";"

Set oConn = CreateObject("ADODB.Connection")
oConn.Open sConnString

Set oCat = CreateObject("ADOX.Catalog")
'Set oCat.ActiveConnection = sd

Set tbl = CreateObject("ADOX.Table")

MTF = frmIslemStok.txtMTF

For Each tbl In oCat.Tables
  Debug.Print tbl.Name
 
  Set rs = CreateObject("ADODB.recordset")
  rs.Open "select * from [" & tbl & "] WHERE SIRA LIKE '%" & MTF & "%' ", sConnString, 1, 3

next tbl

Set oCat = Nothing

yukarıdaki kod ile veritabanına bağlandım ancak bu seferde For Each döngüsünde "Wrong number of arguments or invalid property assignment" hatası veriyor. Hatayı giderme konusunda bir fikri olan varsa paylaşabilir mi?