CARREGAR OBJETO DATA COM ADO

MGALDINO 28/02/2011 10:47:32
#366748

Bom dia Pessoal,

Descobri um meio de meus aplicativos ter um desempenho melhor, sem ter que carregar os dados em combobox e demorar muito.
Tenho um projeto como exemplo que utiliza.

MSFlexGrid
Data1

Para mostrar os dados mais rapido.
Porem esse projeto esta em Dao e Utilizo ADO.

o Form se resume em.


EM DAO

SQL = [Ô]Select * From Tb_Teste Order By NomeTeste[Ô]

Set Rs = DB.OpenRecordset(SQL, dbOpenDynaset)
Set Data.Recordset = Rs



Porem Preciso que ele rode em ADO

SQL = [Ô]Select * From Tb_Teste Order By NomeTeste[Ô]

Set Rs = Db.Execute(SQL)

Set Data.Recordset = RS

Acontece Erro Aqui [Ô] Set Data.Recordset = RS [Ô]
Type mismatch Erro 13.

Como Faço para preencher o Objeto Data com ADO.