主题：sql语句传入int型参数出错

求助

我是想将userId传入到sql语句里：where b.userID="+userId,   b.userID的类型是int型的

错误为：输入字符串的格式不正确。。

代码如下：

Dim userId As Integer
Dim rose As String

userId=7
rose =Vars("user_rose")
If userId<>0 Then
    If rose <>"最高权限" Then
        Tables("入库表_Table1").Fill("SELECT a.HP_BH AS '序列号',a.HP_Name as '设备名称',b.MX_SQR as '申请人',b.MX_SQRPhone as '联系电话',b.MX_SQTime as '入库时间',b.MX_LY as '设备来源' from CK_MX AS b left join CK_HP as a on a.HP_ID = b.HP_ID  where b.userID="+userId, "ck",True)
    Else
        Tables("入库表_Table1").Fill("SELECT a.HP_BH AS '序列号',a.HP_Name as '设备名称',b.MX_SQR as '申请人',b.MX_SQRPhone as '联系电话',b.MX_SQTime as '入库时间',b.MX_LY as '设备来源' from CK_MX AS b left join CK_HP as a on a.HP_ID = b.HP_ID ","ck",True)
    End If
End If