请问哪里出错了

[dong1]

在数据库的表中还有id这列，我把它设置为int，自增

Private Sub GetConnected()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hardware;Data Source=CHENDONG-2E7F71"
cn.CommandTimeout = 30
cn.Open
End Sub

Public cn As ADODB.Connection
Dim str As String
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
GetConnected
Set rs = New ADODB.Recordset
rs.Open str, cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("type") = Text2.Text
rs("brand") = Combo1.Text
rs("info") = Text3.Text
rs.Update
End Sub

[Oreo.M]

str是什么值?

[lv1]

Set rs = New ADODB.Recordset
改成dim rs as new recordset看看,在引用中加ado,而且你的出错行是那行?

[小嘉茗的爸爸]

樓主寫的SQL語句

建議把rs.Open str, cn, adOpenDynamic, adLockOptimistic
等一起寫到 GetConnected裏封裝成函數，返回記錄的集合

[dong1]

好像表错意了 我就是想把text2 combo1 text3的内容添加到表中相应位置

[lv1]

用insert或者update进行操作,不必定义rs,直接cn.Execute "insert XX (...)value(...)"