hi;
i try to a program.this program only makes query on network.(the database's into other host on network) codes:
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 & "'")
While Not rs1.EOF
Text2.Text = rs1("tarih")
Text3.Text = rs1("adisoyadi")
Text4.Text = rs1("bolumu")
Text7.Text = rs1("unvani")
Text5.Text = rs1("girissaati")
Text6.Text = rs1("cikissaati")
rs1.MoveNext
Wend
......
...
...
End Sub
But gives me error (run time error 13) at Set rs1 = db1.OpenRecordset("select * from kayit where tarih='" & Label4.Caption & "'")
Please help me.What i can do

Hello,

Fully qualify your object variable names.

Dim db1 As DAO.Database
Dim rs1 As DAO.Recordset

Thank you so much.it is litle thing but i dont think about that.realy thanks

You're welcome. Its a common oversight. ADO is Access's default data access object model. Your code thought you wanted an ADO recordset, is all.

Bob