Dim 條件 As String
Dim MYCON As ADODB.Connection
Dim MYRS As ADODB.Recordset
Set MYCON = New ADODB.Connection
MYCON.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & 資料庫
Set MYRS = New ADODB.Recordset
With MYRS
.Source = "SELECT 編號,名稱,電話,傳真 FROM 客戶資料 WHERE 電話 LIKE '%123%'"
.ActiveConnection = MYCON '指定所使用的Connection物件
.Open
End With