我學(xué)著做了一個(gè)庫房管理系統(tǒng) 遇到了一個(gè)麻煩 是錯(cuò)誤13 數(shù)據(jù)類型不匹配 具體如下：

 
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.設(shè)備號(hào) = str1 ）")

我想請(qǐng)教一下如何解決

(責(zé)任編輯：admin)

• ·關(guān)于 Partition 函數(shù)在分組查詢中的應(yīng)
• ·Access算術(shù)運(yùn)算符的含義和說明表
• ·mid函數(shù)的另類用法
• ·access制作程序運(yùn)行進(jìn)度框
• ·Function與Sub的異同（函數(shù)調(diào)用）
• ·Access判斷某個(gè)數(shù)值是否為某個(gè)數(shù)據(jù)類型
• ·select case后面語句塊的值的四種格式
• ·vba條件語句的兩種表示方法
• ·Access幾種數(shù)據(jù)類型初始化的值
• ·Access vba null與＂＂空字符串的區(qū)別
• ·access vba 數(shù)據(jù)類型表
• ·Access變量的命名規(guī)則
• ·Access中EXIT Sub與End Sub的區(qū)別
• ·Access vba中參數(shù)前關(guān)鍵字ByRef和ByVal
• ·Access列表框快速全選的技巧【最快】
• ·vba函數(shù)的數(shù)據(jù)類型強(qiáng)制轉(zhuǎn)換