在Visual Basic 6.0 (VB6) 中連接Access數據庫並執行模糊查詢，可以使用ADO (ActiveX Data Objects) 組件。以下是壹個簡單的示例代碼片段，演示如何創建壹個ADO連接，構造壹個包含LIKE語句的SQL查詢，並執行該查詢。
' 引入ADODB庫
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
' 設置連接字符串
sql = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\path\to\your\database.mdb;"
' 建立連接
Set conn = New ADODB.Connection
conn.Open sql
' 設置SQL查詢，使用LIKE進行模糊查詢
sql = "SELECT * FROM YourTable WHERE YourColumn LIKE '%YourValue%'"
' 創建記錄集
Set rst = New ADODB.Recordset
rst.Open sql, conn
' 遍歷結果
Do While Not rst.EOF
' 訪問字段值
Debug.Print rst.Fields("YourColumn").Value
' 移至下壹條記錄
rst.MoveNext
Loop
' 關閉記錄集和連接
rst.Close
conn.Close
Set rst = Nothing
Set conn = Nothing
在上述代碼中，請替換YourTable、YourColumn、YourValue和數據庫路徑為您實際的表名、列名和查詢值。
註意事項：
在使用LIKE語句時，Access中的通配符是星號*表示任意數量的字符，而SQL Server中的通配符是百分號%。
在VB6代碼中使用%作為通配符無需轉義，直接使用即可。
確保數據庫文件的路徑和數據庫的安全性設置允許從VB6應用程序進行訪問。
如果您的數據庫很大或者查詢速度很慢，考慮優化您的查詢和索引。
以上代碼只是壹個基礎的例子，實際開發中可能需要更多的錯誤處理和資源管理代碼。