Runtime error on query converted to VBA

[detrie]

I can run this without a problem as a query

SELECT tbl_SampleType.SampleTypeID, tbl_SampleType.SampleTypeCode, tbl_SampleType.SampleTypeName, tbl_SampleType.SampleTypeInactive
FROM tbl_SampleType
WHERE (((tbl_SampleType.SampleTypeInactive)=False) AND ((tbl_SampleType.LoginType) Like "*" & [Forms]![frm_Login]![cmbLoginTypeID] & "*"));

But, this throws a run-time error 13, Type mismatch error.
What am I missing?

Dim sqlComboBox As String
        sqlComboBox = "SELECT tbl_SampleType.SampleTypeID, tbl_SampleType.SampleTypeCode, tbl_SampleType.SampleTypeName, tbl_SampleType.SampleTypeInactive " & _
        "FROM tbl_SampleType " & _
        "WHERE (((tbl_SampleType.SampleTypeInactive)=False) AND ((tbl_SampleType.LoginType) Like " * " & [Forms]![frm_Login]![cmbLoginTypeID] & " * "));"

 

[isladogs]

You can't use double quotes in SQL code

Change the double quotes to single quotes - shown in RED

Dim sqlComboBox As String
        sqlComboBox = "SELECT tbl_SampleType.SampleTypeID, tbl_SampleType.SampleTypeCode, tbl_SampleType.SampleTypeName, tbl_SampleType.SampleTypeInactive " & _
        "FROM tbl_SampleType " & _
        "WHERE (((tbl_SampleType.SampleTypeInactive)=False) AND ((tbl_SampleType.LoginType) Like [COLOR="Red"]'*'[/COLOR] & [Forms]![frm_Login]![cmbLoginTypeID] &  [COLOR="Red"]'*'[/COLOR] ));"

 

[detrie]

Ah.. Thanks. I didn't know that
Works great