Selection from a list must be exported to a excelsheet

[dellarocco]

'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL


Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database


strExcelFile = "U:\TestLanguage.xls"
strWorksheet = "Language"
strDB = "U:\Project\EchoGen\TestVersie\Data.mdb"
strTable = " ???? "

The strTable must select the selection from the list (this a acces DB selection)
"ApplicationLanguagesList"

the selection is a language, example English or German (this selects the user from the list)
this information is stored in a access DB sheet (Text_ID and Text)
and must be exported to a excelsheet


i thought the query would be :

strTable = ("SELECT ApplicationLanguages.Language FROM ApplicationLanguages WHERE (((ApplicationLanguages.Language) = [Forms]![Application Languages]![ApplicationLanguagesList]));")

but this doesn't work