Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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