Ecco visualizzato sotto il mio DataGrid :


come si puo' notareci sta un campo :
ID

DATA

BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI1,FI2,FI 3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3,M4,MI

SIno AL CINQUANTESSIMO CAMPO :
VE1,V2,V3,V4,V5



cosa devo fare:

devo tramite
Private Sub Command1_Click()

far contare il campo ID da 7608 come viene visualizzato fino all'ultimo ID in questo caso 7639

ho impostato una cosa del genere come codice , pero' non va :

codice:
Private Sub Command1_Click()
    Dim e As Integer
    Dim a As Double
    Dim i As Integer
    For e = 1 To 2
    For pos = 1 To 5
    Query = "SELECT BA & pos,CA & pos,FI & pos,GE & pos,MI & pos,NA & pos,PA & pos,RO & pos,TO & pos,VE & pos FROM archivio Were ID=" & Int(Id) + e
    Next i
  Next pos
Next e
End Sub

CMQ DOPO AVER SAPUTO IMPOSTARE LA select

dovrei ricercare nei vari
adoPrimaryRS

e cercare una determinata combinazione di numeri.......




mi aiutate perfavoreeee