Kapalı Access Tablosundan Veri Çekmek

[bluefalcon]

Arkadaşlar merhaba,

Ekli dosyalarda göreceğiniz üzere excel sayfası üzerinde butona tıkladığımda A1 satırındaki değerin kapalı MAC.accdb dosyasındaki PERSONEL tablosunda aratılıp durak sütunundaki verinin B1 sütununa yazdırılması işlemini yapamadım. Yardımcı olabilir misiniz?

 

[Orion1]

Buyurun.

Sub Button1_Click()
Set con = CreateObject("adodb.connection"): Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.Path & "\Mac.accdb"
isim = Worksheets("Sheet1").Range("A1")
rs.Open "select ADISOYADI,DURAK from [PERSONEL] WHERE [PERSONEL].ADISOYADI='" & isim & "'", con, 1, 1
Worksheets("Sheet1").Range("A2") = rs("DURAK")
rs.Close: con.Close
Set rs = Nothing: Set con = Nothing
End Sub

 

[bluefalcon]

Sayın Orion1,

Çok teşekkür ederim sağolun.