CIFRAO NO COMANDO SELECT COM DAO

USUARIO.EXCLUIDOS 20/03/2005 12:19:19
#73852

Estou usando um arquivo do excel como banco de dados DAO.
Consegui abrir o Banco de dados (arquivo "XLS"), consegui abrir a tabela (planílha). Mas na hora de dar o select nao consigo, pois o nome da tabela tem que ter um "$" para reconhecer como planilha do excel.
chr(36) => "$"
arquivo xls => tabela.xls
planílha => plan1
Aqui tem o código
Desde já agradeço!!!

Dim db_micro As Database
Dim tb_tab As Recordset
Dim tb_cpu As Recordset


Private Sub Form_Load()

Set bd_micro = OpenDatabase("c:\...    abela.xls", False, False, "excel 8.0")
Set tb_tab = bd_micro.OpenRecordset("plan1" & Chr(36), dbOpenTable)
[txt-color=#0000ff]Set tb_cpu = bd_micro.OpenRecordset("select descricao from plan1$ order by descricao")[/txt-color]
tb_cpu.MoveFirst
Do While Not tb_cpu.EOF
cmb_cpu.AddItem (tb_cpu("descricao"))
tb_cpu.MoveNext
Loop
End Sub