[窗体] 求助FindRecord 问题！

SecurID

请高手指点！
窗体2包含子窗体，在文本框输入内容可找到子窗体中相应的数据：
Private Sub Text2_Change()
Dim strwhat As String
Me.Text2.Value = Me.Text2.Text
strwhat = Me.Text2.Value
If Not strwhat = "" Then
Me.子窗体.SetFocus
DoCmd.FindRecord strwhat, acAnywhere, , acDown, , acAll, False
Me.Text2.SetFocus
Me.Text2.SelStart = Len(strwhat)
End If
End Sub
窗体1是个分割窗体，不包含子窗体，如何实现同样的功能，红色的语句该如何改写？