Non sono sicuro di aver capito bene ma vuoi qualcosa del genere

codice:
    Private DBSystemString As String = "Mia Stringa"

    Private DB() As OleDb.OleDbConnection

    Public Function Query(ByVal inter As String)
        DB(0) = New OleDb.OleDbConnection(DBSystemString)

        Return New OleDb.OleDbDataAdapter(inter, DB(0))
    End Function