Declare Function GetShortPathName Lib "kernel32" _
       Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
       ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

    Public Function GetShortName(ByVal sLongFileName As String) As String
        Dim lRetVal As Long, sShortPathName As String, iLen As Integer
        'Set up buffer area for API function call return
        sShortPathName = Space(255)
        iLen = Len(sShortPathName)

        'Call the function
        lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
        'Strip away unwanted characters.
        GetShortName = Left(sShortPathName, lRetVal)
    End Function

    Recordset.Open A("SELECT * FROM [" & Right(GetShortName(ThisWorkbook.Path & "\04.08.2013_eee.csv"), 12) & "]"), Connection