|
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
|