Conexão para 2 BDs ao mesmo tempo

Meu amigos,

Preciso de criar conexões para 2 Bancos de dados diferentes (Firebird e Acces)pois preciso transferir dados de um para o outro e vice-versa.

Vejam o que fiz:

Em um módulo no VB, defini o seguinte:

Option Explicit
    Public conexao_bd As New ADODB.Connection   'String de conexão com o BD.
    Public cnnComando As New ADODB.Command
    Public rsSelecao As New ADODB.Recordset

    Public conexao_bd2 As New ADODB.Connection   'String de conexão com o BD.
    Public cnnComando2 As New ADODB.Command
    Public rsSelecao2 As New ADODB.Recordset

Agora tento a conexão:

Private Sub Timer1_Timer()

    ' Abre conexão com o Banco de Dados.
    'On Error GoTo errConexao
    conexao_bd.ConnectionString = "Provider=ZStyle IBOLE Provider;Data Source=c:PESQUISA_NETDataPESQ001_NET.gdb;UID=sysdba;password=masterkey"
    conexao_bd.Open

    conexao_bd2.ConnectionString = "Microsoft.Jet.OLEDB.4.0;Data Source=C:PESQUISA_PALMPESQ001_NET.mdb"
    conexao_bd2.Open

    Unload Me
    frmpesqini.Show
    Exit Sub

'errConexao:
    With Err
        If .Number <> 0 Then
            MsgBox "Houve um erro de conexão com o Banco de Dados." & _
                vbCrLf & "O Sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, _
                "Erro na Conexão."
            .Number = 0
            Set conexao_bd = Nothing
            End
        End If
    End With
End Sub

Está me apresntando o seguinte erro:

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado.

Alguém aí pode me dizer o que fazer?

Agradeço desde já.