multi seek in ADO, dont work

[luca90]

Option Explicit
Dim CONN As ADODB.Connection, RS As ADODB.Recordset
Sub TEST_MULTISEEK()

If CONN Is Nothing Then
    Set CONN = New ADODB.Connection
    CONN.Open _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                                "Data Source=C:\DATABASE\GIZE.mdb;" & _
                                                "Jet OLEDB:Engine Type=4;"
End If

Set RS = New ADODB.Recordset
RS.Open "MOVIM_SINGOLO_CB", CONN, adOpenKeyset, adLockPessimistic, adCmdTableDirect

RS.Index = Array("CB", "SP1")<<<<<<<<<<< herror here
RS.Seek Array("CB9", "94"), adSeekFirstEQ

End Sub

note:
Field CB and SP1 fields are indexed

[DataMiser]

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx