ADO（ActiveX Data Objects)是微软推出的一种数据访问技术。它被设计用来提供通用数据访问。使用ADO不但可访问各种数据库中的数据，还可访问Excel工作簿、文本文件等文件中的数据。

因为Excel具有易用性、通用性和庞大的用户群，所以在一些小的应用程序中，可以将Excel作为后台数据库，用来保存用户的数据。

有如下工作表：

要在工作表“Sheet2”中通过输入“姓名”查询相关记录，并显示到此工作表中。

编写如下代码：

Sub 按姓名查询()

Dim cnn As New Connection, rs As New Recordset

Dim strSql As String, str1 As String

On Error Resume Next

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Extended Properties=Excel 8.0;" _

& "Data Source=" & ThisWorkbook.FullName

str1 = Worksheets("sheet2").Range("B2")

strSql = "Select * FROM [员工$] Where 姓名 like '%" & str1 & "%'"

rs.Open strSql, cnn, adOpenStatic

With Worksheets("sheet2")

.Range("A4:I100").ClearContents

.Range("A4").CopyFromRecordset rs

End With

rs.Close

cnn.Close

Set rs = Nothing

Set cnn = Nothing

End Sub

在工作表"Sheet2"的单元格“B2”中输入“张”，单击“查询”，运行上面的代码以后，数据查询如下：

－End－