Lascia stare gli array ... usa un oggetto List molto più comodo

codice:
    Dim DB As New List(Of OleDb.OleDbConnection)

    Public Function Query(ByVal inter As String)
        DB.Add(New OleDb.OleDbConnection(DBSystemString))
        
        Return New OleDb.OleDbDataAdapter(inter, DB.Last)
    End Function