在线等待:请教有关ADO连接数据库的问题

Question

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strcon As String
Dim strsql As String
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
If Trim(CmbFather.Text) <> "" Then    
strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户;Password=456;Initial Catalog=jik;Data Source=hj"
    cn.Open strcon
    strsql = "sql语句"
    cn.execute strsql
''如果不用sql语名
    rs.open strsql,cn,3,1
    Do While Not rs.EOF
        rs(0).value=什么
    Loop
    rs.Close
    cn.Close
End If
Set rs = Nothing
Set cn = Nothing

Answer 1

还要在loop下面加一句
rs.updatebatch