RUn time error 13

merhaba;Ben Ağ üzerinde bir veritabanına erişip oradan sorgu yapmak istiyorum ama
Dim db1 As Database
Dim rs1 As Recordset
Set db1 = OpenDatabase("\\kiosk\kart\personel.mdb")
Set rs1 = db1.OpenRecordset("select * from kayit where tarih='" & Label4.Caption & "'")
satırlarında run time error 13 hatası veriyor. tarih bilgisini işletim sisteminin takviminden alıp bir labelin captionına atadım.sorgu bilgisi burdan alınıyor.Lütfen acil yardım edin.