请大家帮忙看下这段代码的错误之处！

Question

Dim cn As New ADODB.Connection
        cn.ConnectionString = DataCnstr("pj97.mdb")
        cn.Open
        Set rs = New ADODB.Recordset
        rs.ActiveConnection = cn
        rs.Open ("select * from zd_dw")        
        cn.Execute ("Insert Into zd_dw (dwbm) valuess ('HB0002')")
        cn.Close
提示错误：
Insert Into 语法错误

Answer 1

Insert Into zd_dw (dwbm) valuess ('HB0002')"
解释一下~~~

Answer 2

我想在表zd_dw里，增加1跳记录，这条记录的字段dwbm的值是HB0002

Answer 3

cn.Execute ("Insert Into zd_dw (dwbm) valuess ('HB0002')") values就可以了，多了个S