Public Sub TestX()
Dim rs As ADODB.Recordset


Set rs = New ADODB.Recordset

rs.CursorLocation = adUseServer
rs.CursorType = adOpenForwardOnly
rs.ActiveConnection="DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=fl;USER=user;PASSWORD=;OPTION=3;"

rs.Open "price", , , adLockReadOnly, adCmdTableDirect

If rs.Supports(adIndex) And rs.Supports(adSeek) Then
    rs.Index = "IDX_price_id"
    rs.Seek "1"
End If

End Sub

If rs.Supports(adIndex) And rs.Supports(adSeek) Then
    rs.Index = "IDX_price_id"
    rs.Seek "1"
End If