VB实时错误 424 要求对象

开始还正常 后来每次操作 都出现错误提示 大家看看吧~~要崩溃了
rivate Sub Command1_Click()
中页.Show

End Sub

Private Sub Command3_Click()
Dim SqlStr As String
SqlStr = "select * from 计题表 where 题号='" & Trim(Text1.Text) & "'"
SqlRes.Open SqlStr, SqlCon, adOpenDynamic, adLockPessimistic

If SqlRes.EOF = True Then
MsgBox "没有这个题目,请重输入！", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text1.SetFocus
SqlRes.Close

Else
Text1.Text = SqlRes("题号")
Text2.Text = SqlRes("题目")

SqlRes.Close
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""

End Sub

Private Sub Form_Load()
Dim SqlCon1 As String
SqlCon1 = "Provider=MSDASQL.1;Password=520;Persist Security Info=True;User ID=sa;Data Source=ss"
SqlCon.Open SqlCon1
End Sub
Priv

VB实时错误'424'要求对象 vb 实时错误 '424' 要求对象 急急急 vb~~~请教 实时错误"424"要求对象 !!!!!!!vb实时错误424 要求对象.有分跪求帮忙啊!!!!!!!!! 实时错误 424 要求对象 notes 实时错误 424 要求对象 是怎么回事？ vb6.0实时错误424要求对象 跪求解决方法 VB 实时错误 424 vb中 实时错误 对象名无效 vb实时错误：429,Active 部件不能创建对象