Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Finding the Record Position

Sub FindRecordPosition()    Dim conn As ADODB.Connection    Dim rst As ADODB.Recordset    Dim strConn As String    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _       "Data Source=" & CurrentProject.Path & _       "\mydb.mdb"    Set conn = New ADODB.Connection    conn.Open strConn    Set rst = New ADODB.Recordset    With rst       .Open "Select * from Employees", conn, adOpenKeyset, _           adLockOptimistic, adCmdText    Debug.Print .AbsolutePosition       .Move 3 ' move forward 3 records       Debug.Print .AbsolutePosition       .MoveLast ' move to the last record       Debug.Print .AbsolutePosition       Debug.Print .RecordCount       .Close    End With    Set rst = Nothing    conn.Close    Set conn = Nothing End Sub