Visual Basic.NET - varias bases de datos

Module ConeccionBD

    Public CaminodeBD As String = My.Computer.FileSystem.ReadAllText("NGSSystem.txt")

    Public StrBD As String = "provider = microsoft.ACE.OLEDB.12.0;data source = " & CaminodeBD

    Public conectar As New OleDbConnection(StrBD)

    '----------------------------

    Sub ConectarBD()

        If conectar.State = ConnectionState.Open Then

        Else

            conectar.Open()

        End If

    End Sub

    '--------------------------------------------------------------------------------------

    Public CaminodeBD2 As String = My.Computer.FileSystem.ReadAllText("SisLocal.txt")

    Public StrBD2 As String = "provider = microsoft.ACE.OLEDB.12.0;data source = " & CaminodeBD2

    Public conectar2 As New OleDbConnection(StrBD2)

    Sub ConectarBD2()

        If conectar2.State = ConnectionState.Open Then

        Else

            conectar2.Open()

        End If

    End Sub

    Sub DesconectarBD()

        conectar.Close()

    End Sub

End Module

Public Function Conexao_Banco_Dados_1() As OleDbConnection

    Dim StrCaminhoConexo As String

  StrCaminhoConexo = " aqui colocas la ruta de tu primera base de datos"

       Return New OleDbConnection(StrCaminhoConexo)

    End Function

Public Function Conexao_Banco_Dados_2() As OleDbConnection

    Dim StrCaminhoConexo As String

  StrCaminhoConexo = " aqui colocas la ruta de tu segunda base de datos"

       Return New OleDbConnection(StrCaminhoConexo)

    End Function

public sub cargar_datos_1

Using cn As OleDbConnection= Conexao_Banco_Dados_1

            Try

                cn.Open()

                Dim StrSql As String = " select * from tabla  '"

                cmd = New oledbCommand(StrSql, cn)

                            Dim da As New oledbDataAdapter(cmd)

                da.Fill(dt)

               datagrid_1.datasource = dt

            Catch ex As Exception

                MsgBox(ex, MsgBoxStyle.Critical, "melqui serrano")

                '              Finally

                cn.Close()

            End Try

        End Using

end sub

public sub cargar_datos_2

Using cn As OleDbConnection= Conexao_Banco_Dados_2

            Try

                cn.Open()

                Dim StrSql As String = " select * from tabla  '"

                cmd = New oledbCommand(StrSql, cn)

                            Dim da As New oledbDataAdapter(cmd)

                da.Fill(dt)

               datagrid_2.datasource = dt

            Catch ex As Exception

                MsgBox(ex, MsgBoxStyle.Critical, "melqui serrano")

                '              Finally

                cn.Close()

            End Try

        End Using

end sub