Hello,

I'm getting a run-time error:
Run-time '-2147467259 (80004005)': [Micorosoft][ODBC Driver Manager] Data source name too long

What is the problem exactly and how can I resolve it?

This is my code:

Sub CSV()
Dim sPath As String
Dim sFileName As String

sPath = CurDir
sFileName = "sample.csv"

Dim sConn As ADODB.Connection
Set sConn = New ADODB.Connection
Dim rsData As ADODB.Recordset
Dim sSQL As String

Dim qtData As QueryTable
Dim wbSheet As Workbook
Dim wDataSheet As Worksheet
Dim rnStart As Range
Dim stADO As String

stADO = "ODBC;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";Extended Properites=Text;"

Set wDataSheet = Worksheets("Data")
wDataSheet.Activate
wDataSheet.Unprotect

With wDataSheet
    Set rnStart = .Range("A1")
End With

sSQL = "SELECT * FROM " & sFileName & " WHERE CompCode = 9"

Set sConn = New ADODB.Connection

With sConn
    .CursorLocation = adUseClient
    .Open (stADO)
    .CommandTimeout = 0
    Set rsData = .Execute(sSQL)
End With

Set qtData = wDataSheet.QueryTables.Add(rsDatam, rnStart)

qtData.Refresh

rsData.Close
sConn.Close
Set rsData = Nothing
Set sConn = Nothing
End Sub

sPath = W:\Folder1\Folder2\Folder3\Folder4\Folder5

W is a mapped drive to a server.

Thanks for the help in advance.





*******(*)*******

__________________
*******(*)*******