Imports System

Public Module Module1

    Private Function gRS(ByRef sql As String, sParam As SourceType) As ADODB.Recordset

        Dim csvFilename As String

        Select Case sParam

            Case SourceType.TreeMember

                csvFilename = "Treemember.csv"

            Case SourceType.PmTree

                csvFilename = "PmTree.csv"

            Case SourceType.Users

                csvFilename = "Users.csv"

            Case Else

                Throw New ArgumentOutOfRangeException()

        End Select

​

        Dim conn As New ADODB.Connection()

        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &

      "Data Source=" & csvFilename & ";" &

      "Extended Properties=""text;HDR=YES;FMT=Delimited"""

        Dim rs As New ADODB.Recordset

        rs.ActiveConnection = conn

        rs.Open(

            $"SELECT * FROM {csvFilename}",

            conn,

            ADODB.CursorTypeEnum.adOpenStatic,

            ADODB.LockTypeEnum.adLockOptimistic,

            ADODB.CommandTypeEnum.adCmdText)

​

        Debug.WriteLine($"RecordCount = {rs.RecordCount}")

        Return rs

    End Function

End Module