vb子程序或函数未定义 - VB / 基础类

Private Sub Command1_Click()//运行时总显示这里“子程序或函数未定义”
  Dim db As Database
  Dim rs As Recordset
  Dim ws As Workspace
  Set ws = CreateWorkspace("", "admin", "", dbUseJet)
  Set db = ws.OpenDatabase(App.path + "\", False, False, "foxpro 2.5;")
  Set rs = db.OpenRecordset("select * from block.dbf where [blockname] like '" + trime(Text1.Text) + "'", dbOpenDynaset)
  If rs.RecordCount Then
  MsgBox "此板块已存在"
  rs.Close
  db.Close
  ws.Close
  Exit Sub
  End If
End Sub

---

Dim db As Database
  Dim rs As Recordset
  Dim ws As Workspace
这些都需要引用。

另外DAO比较过时了，lz考虑使用ADO吧。

---

引用

Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
这些都需要引用。

另外DAO比较过时了，lz考虑使用ADO吧。

那该怎么引用呢？

---

Trime(Text1.Text)

应该是Trim(Text1.Text)，多敲了个e，可是这样后又提示：实时错误91，对象变量或with块变量未设置
这是什么问题呢？

---

我估计有两种情况：一、你的按钮控件换名了，名称改了，不是command1了，把Command1_Click换成 新名字_Click；二、ADO对象没引用——引用方法，工程->引用->勾选Micros