Olá.

Toda Vez que vou fazer uma conexão em meus projetos tenho que digitar todo o código.

EX:

Conexão = "Provider=Microsoft.Jet.OLEDB.3.51;DataSource=C:BD1.mdb" 

Alguem sabe se tem alguma biblioteca para consulta com os tipos desses provedores , para não precisar ficar digitando PROVIDER=Microsoft.Jet...Bla BLa Bla.

Obrigado.

cria um classe

Function DbAbre(MyDb As ADODB.Connection, Dsn, Uid, Pwd, Optional DbId = "") As Boolean

    On Error GoTo TrataErro

    MyDb.CursorLocation = adUseClient
    'MyDb.Open "PROVIDER=MSDASQL;dsn=CipRotas;uid=tse;pwd=tse;"
   
    Cmd = "PROVIDER=MSDASQL;dsn=" & Dsn & ";uid=" & Uid & ";pwd=" & Pwd & ";"
    If DbId <> "" Then Cmd = Cmd & "database=" & DbId & ";"
   
    MyDb.Open Cmd
   
    DbAbre = True
    Exit Function

TrataErro:
    Debug.Print "Erro " & Err & " - " & Err.Description
    MsgBox "Falha na conexao com banco de dados. Finalizando ..."
    DbAbre = False

End Function
é so passar os valores dai abra quantos bancos quiser só  utilizando a rotina acima.