Alguem sabe de como se faz conexão com BD FireBird no VB 6.0?

 

Obrigado

Descubri um site em que tem vários exemplo de conexão de varios BD.

 

Desde já agradeço a atenção.

 

vou deixa o post aberto para comentario.

    Dim connADO As New ADODB.Connection
    connADO.Open "Provider=MSDASQL;Data Source=FBCont;Password=xxxxxxxx;User ID=IDUsuario"

    FBCont: É o Data Source do Firebird.

Dim Banco As ADODB.Connection
Dim Tabela As ADODB.Recordset
Private Sub Form_Load()
Set Banco = New ADODB.Connection
Set Tabela = New ADODB.Recordset
Banco.Open "Provider=Ibole.provider.v4;Data Source=" & App.Path & "MEUDB.FDB", "sysdba", "masterkey"
'Não sei se você sabe:tem que registrar a OLEDB
Set Tabela.ActiveConnection = Banco

Tabela.Open "Select NomeCampo1,NomeCampo2,NomeCampo3 From SuaTabela", Banco, adOpenDynamic
 If Tabela.RecordCount = 0 Then
Else
Mostrar_Dados
End If

End Sub
Private Sub Mostrar_Dados()
text1 = "" & Tabela(0)
text2 = "" & Tabela(1)
text3 = "" & Tabela(2)
End Sub
' Abra um formulário e coloque do jeito que está,vai da certo