Access VBA, Runtime error 3141 reserved word

[Tcurtis]

Hi,
I am trying to get a bit of code to work but am not successful doing so. I get a runtime error 3141 telling me my select statement contains a reserved word, misspelled word, punctuation missing or incorrect.
Below is the code but I cannot find what is wrong with it. Any help would be really appreciated.
Option Compare Database
Option Explicit
Public wSort As String
Public wField As String
Const Sort1 = "SELECT tbl_tmp_Metrics_1yr_Captured_New.Barcode, FROM tbl_tmp_Metrics_1yr_Captured_ATS "
Private Sub Form_Open(Cancel As Integer)
wField = "Barcode"
wSort = " ASC"
End Sub
Private Sub Label2_Click()
wField = "Barcode"
Sortiraj
End Sub
Sub Sortiraj()
If wSort = " ASC" Then
wSort = " DESC"
Else
wSort = " ASC"
End If
Me.RecordSource = Sort1 & "ORDER BY tbl_tmp_Metrics_1yr_Captured_New." & wField & wSort & ";"
End Sub

 

[Norie]

There shouldn't be a comma before FROM.

 

[Tcurtis]

Thanks, taking the comma out clears all the other data in my form. When I leave it in and debug, the line that is highlighted is: Me.RecordSource = Sort1 & "ORDER BY tbl_tmp_Metrics_1yr_Captured_New." & wField & wSort & ";"

 

[Norie]

Is there an error on that line?

If there is what's the error message?

PS There should be a space between the field you want to sort (order) by and DESC/ASC.

 

[Tcurtis]

Same error as before but the line is highlighted when I debug. I am just trying to find a way to sort with a single click descending and ascending. Switching back and forth as you click on the header label. I have an example database that this runs in but when I change out the names and put it in mine it does not work.

 

[Norie]

Did you try putting a space between wField and wSort?

Also, have you tried testing the SQL in Access?

 

[DesmondOshiwambo]

The select statement is wonky, there should definately not be a comma before the FROM as per Norie, also the FROM table name does not match the table referred to by the field.
tbl_tmp_Metrics_1yr_Capture_New
and
tbl_tmp_Metrics_1yr_Capture_ATS
they should be one or the other but not different.