两个子窗体之间通过点击实现数据传输的问题

各位好

我现在有数据表 里面有 ID 名前 性别  全部  英语 语文

在窗体里设置有

1，两个文本框  1，名前 2，性别  和一个按钮 

2，子窗体AAA   通过   1，名前 2，性别 为条件 实现 子窗体AAA的数据查询     （这个我已经实现了）

3，子窗体AAA    希望在子窗体AAA中点击ID 来把点击的数据自动传输到子窗体BBB中。

我自己写的代码

1子窗体AAA 的查询

Private Sub コマンド6_Click()
Dim strWhere As String    
   strWhere = ""
     If Not IsNull(Me.[名前]) Then
           strWhere = strWhere & "([名前] like '*" & Me.[名前] & "*') AND "
    End If
    
    If Not IsNull(Me.[性別]) Then
           strWhere = strWhere & "([性別] like '*" & Me.[性別] & "*') AND "
    End If
    
   If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
       
    Me![ＡＡＡ].Form.Filter = strWhere
    Me![ＡＡＡ].Form.FilterOn = True
    
End Sub

2，子窗体AAA

Private Sub ID_DblClick(Cancel As Integer)
vartemp(0) = Me.[ID]
vartemp(1) = Me.[名前]
vartemp(2) = Me.[性別]
vartemp(3) = Me.[全部]
End Sub

3，子窗体BBB

Private Sub Form_Activate()
Me.ID = vartemp(0)
Me.名前 = vartemp(1)
Me.性別 = vartemp(2)
Me.全部 = vartemp(3)
End Sub

请问代码错在哪里？

该怎么写？

谢谢。