VB中添加删除的一个问题！！

Question

Dim myCon As New ADODB.Connection
Dim myRs As New ADODB.Recordset
Dim StrCnn As StringPrivate Sub Command1_Click()
Dim Xuehao, Kehao, Chenji As String
Xuehao = Text1.Text
Kehao = Text2.Text
Chenji = Text3.Text
Command1.Enabled = True
If Trim(Xuehao) = "" Or Trim(Kehao) = "" Or Trim(Chenji) = "" Then
    MsgBox "选课资料不能为空,请填写完整！"
    Exit Sub
End If
StrCnn = "DRIVER={SQL SERVER};SERVER=STAR;DATABASE=学生选课信息数据库"
myCon.Open StrCnn        '打开数据库myRs.Open "Select * From 选课信息表 where 学号 = '" & Trim(Text1.Text) & "' and 课号='" & Trim(Text2.Text) & "' ", myCon
If myRs.EOF = False Then
    MsgBox "该学生此课程已经存在，请重新输入！"
    myRs.Close
    myCon.Close
    Text1.SetFocus
    Exit Sub
End If
myRs.ClosemyRs.Open "选课信息表", myCon, 3, 2
myRs.AddNew
    myRs.Fields("学号") = Text1.Text
    myRs.Fields("课号") = Text2.Text
    myRs.Fields("成绩") = Text3.Text
myRs.Update
myRs.Close
myCon.Close
MsgBox "添加成功!"
Adodc1.RecordSource = "select * from 选课信息表 order by 学号"
From_tjsc.Adodc1.Refresh
From_tjsc.DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End SubPrivate Sub Command2_Click()
Dim Xuehao, Kehao, Chenji As String
Xuehao = Text1.Text
Kehao = Text2.Text
Chenji = Text3.Text
If Trim(Xuehao) = "" Or Trim(Kehao) = "" Or Trim(Chenji) = "" Then
    MsgBox "请填写要删除学生的资料！"
    Exit Sub
End IfIf myCon.State = 1 Then
myCon.Close
End IfStrCnn = "DRIVER={SQL SERVER};SERVER=STAR;DATABASE=学生选课信息数据库"
myCon.Open StrCnn        '打开数据库
Dim n As Integer
myRs.Open "select * from 选课信息表 where 学号='" & Trim(Text1.Text) & "'", myCon, 3, 2
n = MsgBox("您确定要删除吗？", vbYesNo, "提示")
If n = 6 Then
myRs.Delete
myRs.Close
myCon.Close
End If
'MsgBox "您确定要删除吗？", vbYesNo, "提示"
Adodc1.RecordSource = "select * from 选课信息表 order by 学号"
From_tjsc.Adodc1.Refresh
From_tjsc.DataGrid1.RefreshFrom_tjsc.DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End SubPrivate Sub Command3_Click()
Unload Me
End SubPrivate Sub DataGrid1_Click()
From_tjsc.Adodc1.RecordSource = "select * from 选课信息表 where 学号 = '" & Trim(DataGrid1.Row) & "'"
Text1.Text = Frm_AddClass.Adodc1.Recordset.Fields("学号")
Text2.Text = Frm_AddClass.Adodc1.Recordset.Fields("课号")
Text3.Text = Frm_AddClass.Adodc1.Recordset.Fields("成绩")
Command1.Enabled = False
Command2.Enabled = True
End SubPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""'From_tjsc.Adodc1.Refresh
'From_tjsc.DataGrid1.Refresh
End SubPrivate Sub Text1_Change()
Command1.Enabled = True
End Sub
当我添加 或者删除东西后  都会出现 实时“424”： 要求对象  什么意思啊 
怎么改 请高手指点！！！