数据更新问题。

Question

Private Sub Command5_Click()
    If Text1(0).Text = "" Or Left(Text1(0).Text, 2) <> "29" Or Len(Text1(0).Text) < "8" Then
        MsgBox "请输入8位正确VIP卡号！", vbCritical + vbOKOnly, "提示"
        Text3.Text = ""
        Text3.SetFocus
        Exit Sub
    End If
    strSQL = "select * from vip where VIP卡号 like '" & Trim(Text1(0).Text) & "'"
    Adodc1.RecordSource = strSQL
    Adodc1.Refresh
    Adodc1.Recordset.UpdateBatch adAffectAll
    If Not Adodc1.Recordset.EOF Then
        str = Adodc1.Recordset!VIP卡号
        If str = Text1(0).Text Then
            MsgBox "VIP卡号已经存在！", vbCritical + vbOKOnly, "提示"
            Call Display
            Text1(0).Text = ""
            Text1(0).SetFocus
            Exit Sub
        End If      
    End If
    'SetButtons False
    'Text1(0).Text = Text3.Text
    'Set DataGrid1.DataSource = Adodc1
    strSQL = "update vip set VIP卡号 = '" & Trim(Text1(0).Text) & "' where VIP体验卡号= '" & Trim(Text2.Text) & "'"
    'Adodc1.Recordset.UpdateBatch adAffectAll
    MsgBox "保存成功！", vbInformation + vbOKOnly, "提示"
End Sub
我用的是adodc和datagrid,text绑定数据库。
目的VIP卡号在数据库里面为空白值，想在填加VIP卡号和其他字段修改后一起写入数据库并显示在datagrid,text上。在写出以前程序后，发现写VIP卡号后，不能更新进入数据库。请路过的高手指点。急的很！！！！

Answer 1

干嘛一定要用ADODC控件呀，直接用ADO代码写多好。

Answer 2

Dim RS As ADODB.Recordset
Dim STRSQL As String
 
Set CON = New ADODB.Connection
Set RS = New ADODB.Recordset    CON.connectstring = "连接字符串"
    CON.Open
    STRSQL = "update vip set VIP卡号 = '" & Trim(Text1(0).Text) & "' where VIP体验卡号= '" & Trim(Text2.Text) & "'"
    If RS.State Then RS.Close
    RS.Open STRSQL, CON

Answer 3

只要更新这样好了
Dim CON As ADODB.Connection
Dim STRSQL As String
 
Set CON = New ADODB.Connection
    CON.connectstring = "连接字符串"
    CON.Open
    
    STRSQL = "update vip set VIP卡号 = '" & Trim(Text1(0).Text) & "' where VIP体验卡号= '" & Trim(Text2.Text) & "'"
    CON.Execute STRSQL

Answer 4

有一个地方错了，不好意思
Dim CON As ADODB.Connection
Dim STRSQL As String
 
Set CON = New ADODB.Connection
    CON.ConnectionString = "连接字符串"
    CON.Open
    
    STRSQL = "update vip set VIP卡号 = '" & Trim(Text1(0).Text) & "' where VIP体验卡号= '" & Trim(Text2.Text) & "'"
    CON.Execute STRSQL