É seguinte colegas tenho um projeto que estou fazendo, já tenho cadastro de clientes, e outro mais que estão funcionando perfeitamente, porem estava usando os módulos de pesquisas em MSFlexGrid, porem ficou muito lenta a pesquisa devido a quantidade de registro na tabela, estou usando o FIREBIRD.

Conexão ADO.

Minha conexão esta assim:

 ‘ no modulo

Sub Conecta_DB()

Dim Caminho As String

Set CnSql = New ADODB.Connection

Caminho = ReadINI("Caminho", "BD", App.Path & "Config.ini")

CnSql.Open "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=" & Caminho

End Sub

‘ no form

Private Sub Form_Load()

'chama a sub de conexão com o banco de dados

Verifica_RS

RS.Open "SELECT * FROM Cad_Paciente", CnSql

Preenche_Lista

End Sub

Public Sub Preenche_Lista()

Dim Lst As ListItem

ListaP.ListItems.Clear

Do Until RS.EOF

  Set Lst = ListaP.ListItems.Add(, , RS(0)) <---(Aqui da o erro Run time-error '13' - tipe mimastch)

          Lst.SubItems(1) = "" & RS("NomeP")

          Lst.SubItems(2) = "" & RS("FoneP")

          Lst.SubItems(3) = "" & RS("DtaConsulta")

     RS.MoveNext

  Loop

End Sub

é isso ai so falta isso...

Grato

Bom dia colegas,

O que eu fiz foi o seguinte, criei um projeto novo com o form. principal e a conexão, Idênticas a que já tinha implantaram apenas o modulo de pesquisa, esta funcionando perfeitamente, acredito eu que deve ter algum form. no meio do projeto que esteja em conflito com esse da pesquisa, vou ficar sabendo quando for refazer um a um, só assim vou saber o que esta acontecendo.

Agradeço a todos que colaboraram com minha duvida

Grato