MdE2005 ha dimenticato i Not...:

codice:
With rsOrdine
    Select Case Index
        Case CPRECEDENTE 'Va sul record precedente
           If Not .BOF Then
              .MovePrevious
           End If
           If .BOF Then
              .MoveFirst
           End If
        Case CPROSSIMO
           If Not .EOF Then
              .MoveNext
           End If
           If .EOF Then
              .MoveLast
           End If
    End Select
End With

Inoltre per la connection non utilizzerei 3.51 ma la 4.0 perchè potrebbe darti l'errore "formato data base non riconosciuto":

codice:
cnOrdine.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\DB_1.mdb;Persist Security Info=False"
..e utilizzerei il cursore lato client
codice:
rsOrdine.CursorLocation = adUseClient
Ciao