ADO Example--Search for a data record via an ADO recordset

This example shows how to search for a data record matching a simple criterion (a specific serial number).

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'*** Define the connection string

Dim cnstr As String

cnstr = cnstr & "Provider = Scantron.Oledb;"

cnstr = cnstr & "Data File = c:\program files\pearson ncs\scantools plus\data files\802 sample.dat;"

cnstr = cnstr & "App File = c:\program files\pearson ncs\scantools plus\applications\z802 .sds .StxAppDef;"

cnstr = cnstr & "Mode=Read|Write;"

cn.Open cnstr

rs.Open "select * from master", cn, adOpenDynamic, adLockOptimistic

rs.Find "[Serial Number] = 8"

Debug.Print rs("Serial Number")

The example shown above selects all records from the data provider and then uses the Find method to select the desired records. The same end result could have been achieved simply by executing a select statement that included the find criteria in the where clause. Using a where clause causes less data to be transferred between the provider and the solution; but, if all records are already present in the solution, the Find method may be more efficient.

See also

ADO Programming Examples

Master Table Definition