VB怎么更新SQL里面某一列的数据为TEXT1里面的值

Question

VB怎么更新SQL里面某一列的数据为TEXT1里面的值？？
    Dim strSQL As String
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenKeyset
    cnn.CursorLocation = adUseClient
    cnn.ConnectionString = connstr
    cnn.Open
   rs.Open "SELECT SUT FROM ZERO_TAB", cnn
      With rs
            .Fields("SUT") = Text1.Text
            .Update
      End With
         rs.Update

Answer 1

rs.Open "update ZERO_TAB set SUT='" & text1.text & "'", cnn

Answer 2

cnn.execute "update ZERO_TAB set SUT='" & text1.text & "'"

Answer 3

rs.Open "update ZERO_TAB set SUT='" & text1.text & "'", cnn

Answer 4

cnn.execute "update ZERO_TAB set SUT='" & text1.text & "'"关键是别忘了 两个单引号~~