vb实时错误424 要求对象

高手帮下！！！
rivate Sub Command6_Click()
Label2.Visible = True
Text2.Visible = True
Label2.Caption = Text1.Text & "话费为："
cx2.Height = 6700
s = 0
SQL = "select * from phone2 where 手机='" & Trim(Text1.Text) & "'"
Data2.RecordSource = SQL
Data2.Refresh
DBGrid1.Refresh
n = Data2.Recordset.RecordCount
For i = 1 To n
c = Data2.Recordset(7)
Data2.Recordset.MoveNext
s = s + c
Next
Text2 = s

End Sub
老是 实时错误424 要求对象 DBGrid1.Refresh这部分是黄色 不晓得咋个整。。。

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