Syntax error in query expression

[jagu147]

hi need help solve error in my qury

 Public Sub populate_picks1()
On Error GoTo ErrorHandler
    Dim conwatt As ADODB.Connection
    Dim Recsetwatt As ADODB.Recordset
    Dim strSQL As String
    
    Set conwatt = New ADODB.Connection
    Set Recsetwatt = New ADODB.Recordset
    strSQL = ""
    
       Call set_path
    conwatt.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
       "Data Source=" & strDatabase_Path & " Database.accdb" & ";"
     StrUserWinID = "Tbl_Production"
     area = "Report mont"
      strSQL = "SELECT distinct(ALS_No) FROM " & StrUserWinID & " where Activity_Name= " & area & " "   
 Recsetwatt.Open strSQL, conwatt, adOpenDynamic, adLockOptimistic

in table actvity_name value is "Report mont" but it showing the syntax error(missing oprator)



please help

regards,
jagu147

 

[Norie]

If the field Activity_name is text you need to enclose the criteria in single quotes.

Also there should be no brackets around ALS_No.

 

[jagu147]

thank you so much....