insert过程中的错误,请问如何解决!

我有一段添加纪录的代码:
......
    str4 = Val(txtQuantity.Text)
    If IsTextnull(str4) = True Then
        MsgBox "请输入数量"
        txtQuantity.SetFocus
        Exit Sub
    End If
......
    Set cnn = New ADODB.Connection
    strSQL = "Insert into sales values('str1','str2','str3',str4,'str5','str6')"
    cnn.Open Strcon
    cnn.Execute strSQL    ------------提示这里有错。
......
另外str4所对应的数据库(SQL2000)的Field数据类型是smallint,运行VB后的提示错误是：[Microsoft][ODBC SQL Driver][SQL Server]在此上下文中不允许使用'str4'。此处只允许使用常量、表达式或变量。不允许使用列名。