Public Cnx As Object, Rst As Object

Sub Connect_Csv(Rep As String)
    Set Cnx = CreateObject("ADODB.Connection")
    Cnx.Provider = "MSDASQL"
    Cnx.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
             "DBQ=" & Rep & ";Extensions=asc,csv,tab,txt;"
    Set Rst = CreateObject("ADODB.Recordset")
End Sub

Sub Connect_Xls(Ndf As String)
    Set Cnx = CreateObject("ADODB.Connection")
    Cnx.Provider = "MSDASQL"
    Cnx.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
             "DBQ=" & Ndf & "; ReadOnly=False;"
    Set Rst = CreateObject("ADODB.Recordset")
End Sub