我学着做了一个库房管理系统 遇到了一个麻烦 是错误13 数据类型不匹配 具体如下：

 
Dim curDb As Database
Dim curRs As Recordset
Dim devicecnt As Integer
Dim sumprice As Currency
Dim sum As Currency
Dim curav As Currency
Dim strSQL As String
Dim str1 As Long
Dim av As Currency
    Set curRs = curDb.OpenRecordset(strSQL)
 
   Set curRs = curDb.OpenRecordset("select * from  device where (device.设备号 = str1 ）")

我想请教一下如何解决

(责任编辑：admin)

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换