Obtein records from select statment....

[Diogo]

I would like to know how i can to obtein records of a query to a datacontrol.
I try

Private Sub Form_Load()
Dim db As Database
Dim Rs As Recordset
Set db = OpenDatabase(App.Path & "\xpto.MDB&quot
Set Rs = db.OpenRecordset("SELECT cod_cli, nome FROM Tabela1;&quot
Set Data1.Recordset = Rs
End Sub

But it gives an error.
Thanks by the help.
DR

 

[irfcgi]

Dear DR

To the best of my knowledge, runtime binding of data is not possible in DAO. You better use ADO data control for that purpose.
Regards.

Irfan Ahmed.

 

[Hackster]

This should do the trick for you. Instead of using your Recordset object (rs), use your database object (db):

Set Data1.Recordset = db.OpenRecordset("SELECT cod_cli, nome FROM Tabela1;&quot