VB在线求助，急~~ - VB / 控件

这个Function编译时提示can't find project or library
应该是类库没有添加吧；要怎么做才行啊？
应该是DataCombo这个的问题
Public Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)
  Dim strTmpData As String
  Dim rstmp As ADODB.RecordSet
On Error GoTo err
  If iRsdacbo Is Nothing Then Exit Sub
  strTmpData = Trim(idacbo.BoundText)
  iRsdacbo.Filter = adFilterNone
  If strTmpData <> "" Then
  iRsdacbo.Filter = BoundColumn & " like " & kk(strTmpData & "%")
  End If
  Set rstmp = rsCopy(iRsdacbo)
  GetDatadacboGotFocus idacbo, rstmp, BoundColumn, ListField, , IIf(Trim(strTmpData) <> "", False, True)
  iRsdacbo.Filter = 0
  Exit Sub
err:
  Call GetMsg(E_OnErrMsg, "[ FilterDataCombo ]ErrNo:" & err.Number & " ErrDesc:" & err.Description)
End Sub

---

都引用了。还是不行

---

出错行指向哪条语句？

---

在IDE里运行一下看看是否出错，出错行指向哪里。
记得注掉on error 之类的语句

---

出错指向Public Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)

把ByVal idacbo As DataCombo拿掉就可以了
{{-