进行编译时出现错误提示：未找到方法或数据成员
然后就出现在text的位置上
我找了很多案例出改总是错误
以下是我的原文

Dim TIM As Integer     '定义一个整型变量
Dim myval As String     '定义一个字符串变量
Private Sub Form_Load()
    '自动识别数据库路径
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\info.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select * from persen "
    Adodc1.Refresh
    End Sub

Private Sub Image_BU_Click()
    Adodc1.RecordSource = "select * from persen where tel='" + Text1.Text + "' and password='" + Text2.Text + "'"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then '如果记录数大于零
    MsgBox "登录成功！", vbCritical, "系统提示"
    Else
        MsgBox "账号不存在,请重新输入！", vbCritical, "系统提示"
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
    End If
End Sub
Private Sub Image_mix_Click()
  WindowState = 1
End Sub
Private Sub Image_mix_mousemove(button As Integer, Shift As Integer, X As Single, Y As Single)
  Image_mix.Picture = LoadPicture(App.Path & "\images\Button_mix2.jpg")
  Image_text.Picture = LoadPicture(App.Path & "\images\Button_text.jpg")
End Sub
Private Sub Image_text_mousemove(button As Integer, Shift As Integer, X As Single, Y As Single)
  Image_text.Picture = LoadPicture(App.Path & "\images\Button_text2.jpg")
  Image_mix.Picture = LoadPicture(App.Path & "\images\Button_mix.jpg")
End Sub
Private Sub Image_BU_mousemove(button As Integer, Shift As Integer, X As Single, Y As Single)
  Image_BU.Picture = LoadPicture(App.Path & "\images\Button_BU2.jpg")
End Sub
Private Sub Form_mousemove(button As Integer, Shift As Integer, X As Single, Y As Single)
  Image_mix.Picture = LoadPicture(App.Path & "\images\Button_mix.jpg")
  Image_text.Picture = LoadPicture(App.Path & "\images\Button_text.jpg")
  Image_BU.Picture = LoadPicture(App.Path & "\images\Button_BU.jpg")
End Sub
Private Sub Image_ad_bg_mousemove(button As Integer, Shift As Integer, X As Single, Y As Single)
  Image_mix.Picture = LoadPicture(App.Path & "\images\Button_mix.jpg")
  Image_text.Picture = LoadPicture(App.Path & "\images\Button_text.jpg")
  Image_BU.Picture = LoadPicture(App.Path & "\images\Button_BU.jpg")
End Sub
Private Sub Image_text_Click()
  Unload Me
End Sub

Private Sub Label_beian_Click()
  Dim Browser1 As Object
  URL = "http://www.cns-union.com/reg/persen.asp"
  Set Browser1 = CreateObject("InternetExplorer.Application")
  Browser1.Visible = True
  Browser1.Navigate (URL)
End Sub

Private Sub Label5_Click()
  Dim Browser2 As Object
  URL = "http://www.cns-union.com/top/loginmima.asp"
  Set Browser2 = CreateObject("InternetExplorer.Application")
  Browser2.Visible = True
  Browser2.Navigate (URL)
End Sub