Buon giorno...
ho un dubbio atroce!
Come posso trovare la prima estrazione del mese in un database dat (non a nulla a che fare con access, e un file di testo con le estrazioni all'interno)

io lo apro così:

codice:
Const dbase As String = "C:\dbLotto\Estrazio.dat"

Private Type estrat
dataestraz As String * 9
nu1 As String * 2
nu2 As String * 2
nu3 As String * 2
nu4 As String * 2
nu5 As String * 2

nu6 As String * 2
nu7 As String * 2
nu8 As String * 2
nu9 As String * 2
nu10 As String * 2

nu11 As String * 2
nu12 As String * 2
nu13 As String * 2
nu14 As String * 2
nu15 As String * 2

nu16 As String * 2
nu17 As String * 2
nu18 As String * 2
nu19 As String * 2
nu20 As String * 2

nu21 As String * 2
nu22 As String * 2
nu23 As String * 2
nu24 As String * 2
nu25 As String * 2

nu26 As String * 2
nu27 As String * 2
nu28 As String * 2
nu29 As String * 2
nu30 As String * 2

nu31 As String * 2
nu32 As String * 2
nu33 As String * 2
nu34 As String * 2
nu35 As String * 2

nu36 As String * 2
nu37 As String * 2
nu38 As String * 2
nu39 As String * 2
nu40 As String * 2

nu41 As String * 2
nu42 As String * 2
nu43 As String * 2
nu44 As String * 2
nu45 As String * 2

nu46 As String * 2
nu47 As String * 2
nu48 As String * 2
nu49 As String * 2
nu50 As String * 2
End Type

Dim RecordEstr As estrat
Dim RecorDnum  As Integer
Dim inFile As Integer


Private Sub Leggi(numero As Integer)
inFile = FreeFile
Open dbase For Random As #inFile Len = Len(RecordEstr)
RecorDnum = LOF(inFile) / Len(RecordEstr)
Get #inFile, numero, RecordEstr
estraz1.Caption = numero
Close #1
End Sub

Private Sub Form_Load()
inFile = FreeFile
Open dbase For Random As #inFile Len = Len(RecordEstr)
RecorDnum = LOF(inFile) / Len(RecordEstr)
Close #inFile
Formy.StatusBar1.Panels(1).Text = "Estrazioni in archivio: " & RecorDnum
estraz2.Caption = RecorDnum
estraz5.Text = RecorDnum
estraz4.Text = RecorDnum - 1000
End Sub

la data "indice su cui mi baso" sono nell'formato 07GEN1871

non saprei proprio come fare, mi servirebbe una mano se e possibile

Grazie mille