Does it support bookmark : Recordset Bookmark « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Bookmark

Does it support bookmark

 
Sub BookmarkSupport()
   Dim rst As ADODB.Recordset
   Dim varMyBkmrk() As Variant
   Dim strConn As String

   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"

   Set rst = New ADODB.Recordset
   rst.Open "Customers", strConn, adOpenKeyset

   If Not rst.Supports(adBookmark) Then
      MsgBox "This recordset does not support bookmarks!"
      Exit Sub
   End If

   rst.Close
   Set rst = Nothing
End Sub

 

Related examples in the same category