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

I'll take a guess at this.

Is it possible that you are referencing both ADODB and DAO components in your project?
If so, try qualifying your object variables like so:

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

It is very possible that you are having an ambiguity issue... that db1.OpenRecordset call is going to be retrieving a DAO.Recordset object, and if the rs1 variable is typed as an ADODB.Recordset object you will get the type mismatch (13) error.

You might also want to use the ADODB objects rather than the DAO objects altogether. There might be some reasons to use DAO, but that is almost ancient technology now... but then, that could be said of ADODB, I guess.

woody Z http://www.learntoprogramnow.com