access中包含语句如何解决

1、在标准模块中写一自定义函数：
Function BB(str As String) As Boolean
Dim rs As New ADODB.Recordset
Dim i As Long
rs.Open "数据表名称", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
BB = False
For i = 1 To rs.RecordCount
    If InStr(str, rs!a.Value) > 0 Then
        BB = True
        Exit For
    End If
    rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Function

2、在查询中引用该函数：
select * from tbname where BB([b])=True