Microsoft Access 掲示板

こんにちは。
いつも参考にさせて頂いてます。
7月に帳票を横に配置する方法でお世話になりました。
その横並びになった帳票をサブフォームとして利用しております。
メインの動作によってサブフォームのレコードソースか変化することもできました。
しかしその帳票のレコード数が多すぎて画面から見えなくなったときに、
メインの値で、サブフォームの値を探して　サブフォームの画面に見えるようにするみたいなことを考えているのですがこ、うまくいきません。

サブフォームの読み込み時のコードです。

Public Sub SourceReset1()

Dim db As dao.Database
Dim rs As dao.Recordset
Dim Res
Dim i As Integer
Dim q As Long
Dim k As Long
Dim t As Long

Me.Painting = False 'ちらつき防止
Me.RecordSource = "" 'フィールド構成が変わる場合Requeryではリセットされない
Me.RecordSource = "畦取クロス"
q = Nz(DMax("並順", "縞取順計算") + 2)
k = Nz(DMax("取順", "畦取") + 1)
t = Nz(DMax("元順", "畦取計算") + 2)
Set rs = Me.Recordset

For i = 2 To rs.Fields.count - 1
Me("lbl" & i).Caption = rs(i).Name
Me("txt" & i).ControlSource = rs(i).Name
Me("txt" & i).Visible = True
If i > q Then
Me("txt" & i).ForeColor = RGB(255, 0, 0)
Me("lbl" & i).ForeColor = RGB(255, 0, 0)
Else
Me("txt" & i).ForeColor = RGB(0, 0, 0)
Me("lbl" & i).ForeColor = RGB(0, 0, 0)
End If
If i > k Then
Me("txt" & i).ForeColor = RGB(0, 0, 0)
Me("lbl" & i).ForeColor = RGB(0, 0, 0)
End If
If i = t Then
Me("txt" & i).ForeColor = RGB(0, 0, 255)
Me("lbl" & i).ForeColor = RGB(0, 0, 255)
End If

Next
For i = rs.Fields.count To 110
Me("lbl" & i).Caption = ""
Me("txt" & i).ControlSource = ""
Me("txt" & i).Visible = False
Next

Me.Painting = True

End Sub

メインフォームの　元順　はサブフォームの　"lbl"　と同じです

メインに　前回おしえてもらった　SourceReset　をすると　サブフォームの内容がリセットされます。

Call Me.畦取①.Form.SourceReset

そのあとに

Dim strCriteria As String
　Dim h As Integer

　h = Me.畦取①.Form.ControlSource = rs(i).Name

strCriteria = " h = " & CLng([元順])

Me!畦取①.Form.Recordset.FindFirst strCriteria

　このように　FindFirst　を使えば　見えなくなったサブフォームの列が
移動してくれて　見えるようになるのかと思いましたが　

h = Me.畦取①.Form.ControlSource = rs(i).Name

を認識してくれません。

サブフォームはメインフォームの元順の値を見てサブフォームの配置された　ｌｂｌ　であり　ｔｘｔ　の色を変化させています。
その配列が長すぎると　当然　画面からみえなくなります　サブフォームのスクロール機能を使えば簡単そうなのですが、なにせ　メインの元順が変化するごとに　サブフォームをリセットするもんですから　また　スクロール位置も最初に戻ってしまいます。
わかりづらい投稿で申し訳ありませんが、ご教示いただけないでしょうか？