麻烦帮忙看看这个语句

Question

    Select Case Button.Key
        Case "保存"
        Dim conn As New ADODB.Connection
        conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=database;Initial Catalog=Winnie;Data Source=192.168.18.195"
        Dim rs As New Recordset
        rs.Open "select max(masterid) as masterid from whovertimedetail", conn
        masterid = "Over" & Mid(rs.Fields("masterid").Value, 5, 6 - Len(Right(rs.Fields("masterid").Value, 6) + 1)) & Right(rs.Fields("masterid").Value, 6) + 1
        rs.Close
        billdate = Format(DTPAddOverBilldate.Value, "yyyy-mm-dd")
        starttime = DTPAddOverTimeStart.Value
        endtime = DTPAddOverTimeEnd.Value
        overtype = CobAddOverTypeSelect.Text
        timecount = TxtAddOverTimeCount.Text
        attender = CobAddOverEmpnameSelect.Text
        operator = FrmLogin.LoginName
        operatetime = Now
        checker = CobAddOverCheckerSelect.Text
        re = TxtAddOverTimeRe.Text
        Sql = "insert into whovertimedetail values('" & masterid & "','" & billdate & "','" & starttime & "','" & endtime & "','" & overtype & "','" & timecount & "','" & attender & "','" & operator & "','" & operatetime & "','" & checker & "'," & "null,null,null,null,null,null,'" & re & "')"
        Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=database;Initial Catalog=winnie;Data Source=192.168.18.195"
        Adodc1.RecordSource = Sql
        Adodc1.Refresh
    End Select
语句提示，对象关闭时，不允许操作，但数据库记录写进去了！请问各位大侠，这是什么原因，应该如何修改

Answer 1

Oracle数据库吗？我用另外种方法写不会。。！

Answer 2

Sql = "insert into whovertimedetail values('" & masterid & "','" & billdate & "','" & starttime & "','" & endtime & "','" & overtype & "','" & timecount & "','" & attender & "','" & operator & "','" & operatetime & "','" & checker & "'," & "null,null,null,null,null,null,'" & re & "')"
'Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=database;Initial Catalog=winnie;Data Source=192.168.18.195"
'Adodc1.RecordSource = Sql
'Adodc1.Refresh
conn.execute sql

Answer 3

十分感谢！
那请问，adodc1.refresh和execute 的区别是什么样的，分别在什么时候使用！

Answer 4

一般对数据库的增删改用conn.execute,查询用adodc1

Answer 5

adodc1.refresh：使用数据的中的数据，根据Adodc1.RecordSource 的要求，更新用户端数据
cnn.execute  执行一个数据库操作，可能是从数据加载数据，也可能是修改或添加数据数据，前者返回记录，后者不返回记录集

Answer 6

少了个字：adodc1.refresh：使用数据库的中的数据，根据Adodc1.RecordSource 的要求，更新用户端