VB修改SQL数据问题

Private Sub Command4_Click()
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sql As String

sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Initial Catalog=qmsj;Data Source=(local)"
conn.ConnectionString = sql

If Len(Text2.Text) <> 0 Then
sql = "select * from 商品 where 商品号='" & Text2.Text & "'"

If rs.RecordCount = 1 Then
rs.Fields("商品名") = Text3.Text
rs.Fields("商品类型号") = Text4.Text
rs.Fields("供应商号 ") = Text5.Text
rs.Update
End If
End If

End Sub

rs.Open sql, conn这行错误 谁能解决下

SQL 语言修改数据问题 vb和sql中读取数据问题 SQL中修改数据的问题 SQL批量修改数据 SQL修改数据 vb修改access数据 vb中限定SQL数据不能重复的问题 vb查找 sql数据读取 关于SQL SERVER的修改数据问题.难得我哦 sql 修改数据的一个小问题 跪求。