With Jet, try this:
Code:
strSQL = " SELECT LEFT(A.[Product Model], 255) as [Product Model],  " & _
" LEFT(A.[Person InCharge], 255) as [Person InCharge], " & _
" LEFT(A.[Customer Name], 255) as [Customer Name], " & _
" LEFT(A.[Invoice Number], 255) as [Invoice Number], " & _
" LEFT(A.[Item Number], 255) as [Item Number], " & _
" LEFT(A.[Item Description], 255) as [Item Description], " & _
" """" & A.[Total Sum] as [Total Sum] , " & _
" A.[Amount] as [Amount] " & _
" FROM [" & Me.txtSheetName.Text & "$] AS A"