麻烦帮忙看看这个语句解决方法

麻烦帮忙看看这个语句

VB code

    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