dim SQL as String
dim rs As Recordset
SQL = "SELECT * FROM テーブル名 WHERE 検索フィールド LIKE '*検索文字*'"
Set rs = CurrentDb.OpenRecordset(SQL)
あいまい検索は、「WHERE 検索フィールド LIKE」で行います。
そしてワイルドカード（*）を使用し検索します。
先頭からの文字列を検索するには、'検索文字*'とします。
末尾からの文字列を検索するには、'*検索文字'とします。
どの位置からでも文字列を検索するには、'*検索文字*'とします。
使用例
DVDが含まれる製品名を検索します。
SQL = "SELECT 製品名 FROM 商品管理 WHERE 製品名 LIKE '*DVD*'"