Option Explicit Private oFileConn As ADODB.Connection Private oRS As ADODB.Recordset Private Function GetFileRS() As Recordset Dim msPath As String, msFile As String, msLine As String, i As Long msPath = "P:\FileConversion\" msFile = "test.csv" Set oFileConn = New Connection With oFileConn .Mode = adModeReadWrite .Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & msPath & ";DefaultDir=" & msPath & ";Uid=;Pwd=;" End With Set oRS = New Recordset oRS.CursorLocation = adUseClient oRS.Open msFile, oFileConn oRS.ActiveConnection = Nothing Set GetFileRS = oRS End Function