[VB6] Visualizzare ultima riga di una tabella

[Magicolotto]

ciao ragazzi io aprola connessione di un archivio in questo modo :

Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub Form_Load()
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programmi\cartella\archivio.mdb;"

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3,MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3,VE4,VE5,ID from archivio", db, adOpenStatic, adLockOptimistic

  Dim oText As TextBox
  'Associa le caselle di testo al fornitore di dati
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next

  mbDataChanged = False
End Sub

quando apro mi viene visualizzata per default la prima tabella( origa) dell'archivio, pero' vorrei fare in modo che venga visualizzata l'ultima

[oregon]

adoPrimaryRS.MoveLast

[Magicolotto]

non ho capito se
devo sostituirlo al codice che ho mostrato da qualche parte?
in caso dove?

[oregon]

Con la Open ottieni il recordset e dopo con la MoveLast ti sposti all'ultima riga ...