MSFLEXGRID NO EXCEL

USUARIO.EXCLUIDOS 11/08/2007 12:03:25
#230482

Tenho em um form no excel um msflexgrid funcional, só que gostaria de colocar mais velocidade quando faço a pesquisa nas tabelas, peguei o codigo abaixo para tentar adaptar mas retorna erro na linha em destaque:
Private Sub CmdManute_Click()
Set BancoDeDados = OpenDatabase(ThisWorkbook.Path & "\Dados.mdb")
Set TBDados = BancoDeDados.OpenRecordset("Dados", dbOpenDynaset)

Set TBTemp = BancoDeDados.OpenRecordset("select Nome,Codigo,Descrição,DataS,Horas,almoxarife,locali,observ from dados where isnull(dataE) and Nome = 'Manutenção' order by codigo asc")
TBTemp.MoveFirst
With MSFlexGrid1
.Refresh
.Visible = False
.Rows = TBTemp.RecordCount + 1
.Cols = TBTemp.Fields.Count - 1
.Row = 0
.Col = 0
.RowSel = .Rows - 1
.ColSel = .Cols - 1
.Clip = TBTemp.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
.Visible = True
Set TBTemp = Nothing
Set BancoDeDados = Nothing
End With



End Sub