我想问一个关于数据库的问题？？？

我在这个窗体里用这个段代码查询完数据之后：
    Dim i As Long
    Dim Data As String
    Data = "*" & Me.TXTfilename.Text & "*"
    i = 1
    Me.Lvwfile.ListItems.Clear
    Call AF.OpenDatabase(App.Path & "\mydb.mdb", True, PWD, adCmdTable, "FileDetail")
    AF.myrst.filter = "FileTitle LIKE '" & Data & "'"
    Do While AF.myrst.EOF = False
        Me.Lvwfile.ListItems.add i, , AF.myrst.Fields("FileTitle")
        Me.Lvwfile.ListItems(i).SubItems(1) = AF.myrst.Fields("FileDate")
        Me.Lvwfile.ListItems(i).SubItems(2) = AF.myrst.Fields("Fileau")
        AF.myrst.MoveNext
        i = i + 1
    Loop
    AF.closedb
再启动另一个窗体执行查询语句：
    Call AF.OpenDatabase(App.Path & "\mydb.mdb", True, PWD, adCmdText, "select DISTINCT Fileau from fileDetail")
    Do While Not AF.myrst.EOF
        Me.cboau.AddItem AF.myrst.Fields("Fileau")
        AF.myrst.MoveNext
    Loop
    Call AF.closedb
却发生错误，说是在执行“select DISTINCT Fileau from fileDetail”时找不到数据，却里面的确有数据，有意思的是，只有执行“AF.myrst.filter = "FileTitle LIKE '" & Data & "'"”模糊查询也出现这种情况，真是郁闷！！！