请问这个语句出错在什么地方？vb+sqlserver

Question

在我的VB里插入了这样一条语句，编译老是出错：
 strSql = "insert into TempData (BookCode,Num) " _
      + " values('" + Context(i, 0) + "'," + str(Context(i, 1)) + ")"
其中：表TempData,字段BookCode是字符型的，Num是数字型的。
      二维数组是字符串型的，执行到这一句总是错，求救！！

Answer 1

strSql = "insert into TempData (BookCode,Num) " _
      & " values('" & Context(i, 0) & "'," & str(Context(i, 1)) & ")"

Answer 2

你这样写是不对的
假如rs存在
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    sTokens = Split(sql)
    Set cnn = New ADODB.Connection
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
    cnn.Open ConnectString
    Set rs = New ADODB.Recordset
    strsql="select * from TempData"
    rs.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
    for j= 1 to i
       rs.addnew
          rs!BookCode=Context(i, 0)
          rs!Num=str(Context(i, 1)) 
       rs.update
     next j

Answer 3

str(Context(i, 1))前面的那个Str函数取掉，改为：strSql = "insert into TempData (BookCode,Num) " _
      + " values('" + Context(i, 0) + "'," + (Context(i, 1)) + ")"

Answer 4

'最好将+换成&
strSql = "insert into TempData (BookCode,Num) " _
      & " values('" & Context(i, 0) & "'," & (Context(i, 1)) & ")"

Answer 5

换成
strSql = "insert into TempData (BookCode,Num) " _
      & " values('" & Cstr(Context(i, 0)) & "'," & Val(Context(i, 1)) & ")"试试