在access VBA中，有没有一种方法可以使用组合框条件在表中查找记录并将该记录添加到其他表中？

Private Sub cmbSearch_AfterUpdate()
    Dim strSQL As String
    Dim rsSource As Recordset
    Dim rsTarget As Recordset
    
    ' 获取选择的值
    Dim selectedValue As String
    selectedValue = Me.cmbSearch.Value
    
    ' 创建源表的记录集
    Set rsSource = CurrentDb.OpenRecordset("SourceTable")
    
    ' 创建目标表的记录集
    Set rsTarget = CurrentDb.OpenRecordset("TargetTable")
    
    ' 使用选择的值作为条件查询源表
    strSQL = "SELECT * FROM SourceTable WHERE FieldName = '" & selectedValue & "'"
    rsSource.Open strSQL, CurrentDb, adOpenForwardOnly, adLockReadOnly
    
    ' 如果找到匹配的记录，则将其添加到目标表中
    If Not rsSource.EOF Then
        rsTarget.AddNew
        rsTarget("FieldName") = rsSource("FieldName")
        ' 添加其他字段的赋值操作
        rsTarget.Update
    End If
    
    ' 关闭记录集
    rsSource.Close
    rsTarget.Close
    
    ' 释放资源
    Set rsSource = Nothing
    Set rsTarget = Nothing
End Sub