Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Finding Records Using the Find Method

Sub Find_WithFind()    Dim conn As ADODB.Connection    Dim rst As ADODB.Recordset    Set conn = New ADODB.Connection    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"    Set rst = New ADODB.Recordset    rst.Open "Employees", conn, adOpenKeyset, adLockOptimistic    rst.Find "TitleOfCourtesy ='Ms.'"    Do Until rst.EOF       Debug.Print rst.Fields("LastName").Value       rst.Find "TitleOfCourtesy ='Ms.'", SkipRecords:=1, _           SearchDirection:=adSearchForward    Loop    rst.Close    Set rst = Nothing    conn.Close    Set conn = Nothing End Sub