[VB6] Posizionarsi ad una data specifica in Access

[Magicolotto]

Ciao a tutti ho un problema a posizionarmi in un archivio access in una determinata data

nell'archivio
ho un campo "Data"
ogni mese contiene al massimo 14 date

io dovrei trovare da codice la seconda data e posizionarmi sul recordset

procedo in questo modi :

On Error GoTo LocalErr
Dim matrice As Variant
' estraggo la data dal campo separando giorno mese ed anno
matrice = Split(txtFields(1).Text, "/", -1, vbTextCompare)
' visualizzo la data in tre text
Text1.Text = matrice(0)
Text2.Text = matrice(1)
Text3.Text = matrice(2)
' da qui inizia la ricerca
'mi posiziono sul primo recordset che ho in archivio
adoPrimaryRS.MoveFirst
'da inputbox do le istruzione per posizionarmi un tot numero indietro di recordset tramite il CAMPO "ID"
ultime = InputBox(" Inserisci il numero di estrazioni da controllare ", "ID")
ultime = ultime
cerca = (adoPrimaryRS.RecordCount) - ultime
cerca = "ID=" & UCase(Trim(cerca)) & ""
'MI POSIZIONO SULL'ID desiderato
adoPrimaryRS.Find cerca
'continua ad avanzare
adoPrimaryRS.MoveNext
'verfichaiamo se è arrivato al mese desiderato in questo caso gennaio
If matrice(1) = 1 Then
'ci posizioniamo alla prima data di tale mese

adoPrimaryRS.Move 1



Else


End If

LocalErr:

tutto questo pero' non funziona... mi date una mano

[alka]

Originariamente inviato da Magicolotto
tutto questo pero' non funziona... mi date una mano

Penso che ormai sia assodato che dire non funziona è del tutto insufficiente: cosa non funziona? come si comporta il codice? cosa fa diversamente rispetto a quello che vuoi? restituisce errori?