麻烦帮忙看看这个语句

    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
        remark = TxtAddOverTimeRemark.Text
        Sql = "insert into whovertimedetail values('" & masterid & "','" & billdate & "','" & starttime & "','" & endtime & "','" & overtype & "','" & timecount & "','" & attender & "','" & operator & "','" & operatetime & "','" & checker & "'," & "null,null,null,null,null,null,'" & remark & "')"
        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

语句提示，对象关闭时，不允许操作，但数据库记录写进去了！

请问各位大侠，这是什么原因，应该如何修改
[解决办法]
一般对数据库的增删改用conn.execute,查询用adodc1
[解决办法]

引用:

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

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