VB编译的时候老是出现:未找到方法或数据成员

Private Sub Form_Load()
On Error Resume Next
    AddToTray Me, Frm_menu.kz
    '调用在托盘图标上显示提示的子程序
    SetTrayTip Me.Caption
    Text1.Visible = False
    With Winsock1                    'winsock的初始化

        .Protocol = sckUDPProtocol   '使用UDP协议

        .RemotePort = 1234            '要连接的端口

        .LocalPort = 4321

        .Bind 4321                 '绑定到本地的端口上

    End With
    Set rs = New ADODB.Recordset    'ADODB存取数据库的中间函式组件
    rs.Open "select * from tb_user order by id desc", cnn, adOpenKeyset, adLockOptimistic   '按降序排列
    Set Me.MSHFlexGrid1.DataSource = rs
End Sub

答案：先把On Error Resume Next语句去掉，再调式，会明确指出错误。

上一个：高一信息程序设计 VB语言
下一个：两道计算机的题目，用VB来做。