Selam arkadaşlar, 2013 Acess var sorun buyüzden oluyor. biraydır uğraşıyorum 
uyarlayamadım sürekli 3061 kodu alıyorum birde siz bakarmısın. 


Private Sub FISNOBUL_Click()



Dim db As Database
Dim rs As Recordset


Set db = CurrentDb()

Set rs = db.OpenRecordset("Select * From [HURDA_GIRISLERI] Where İRSALİYENO = IRSALIYE ")


NETTARIH = rs.Fields("TARIH")
NETNETPLAKA = rs.Fields("PLAKA")


rs.Close
db.Close

End Sub