求教：比较两个表是否有相同记录

bd4acw

比较两个表是否有相同记录
按下“比较”按钮后，不管有否相同记录都会弹出消息框。
各位大大：这段代码应该如何写？困扰了好几天了，头晕啊！

styhs

1# bd4acw

Private Sub 比较_Click()
Dim rst As ADODB.Recordset
Dim strSQL As String
'-----
strSQL = "SELECT A.OrderId FROM OrderList AS A INNER JOIN kdjl AS B " _
    & "ON A.OrderId=B.OrderId ORDER BY A.OrderId"
Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Source = strSQL
        .Open
    End With
    strSQL = ""
    If Not rst.EOF Then
        Do Until rst.EOF
            If strSQL = "" Then
                strSQL = rst(0)
            Else
                strSQL = strSQL & "," & rst(0)
            End If
            rst.MoveNext
        Loop
        MsgBox strSQL & "存在重复！"
    End If
    rst.Close
Set rst = Nothing
End Sub

bd4acw

太棒了！太神速了！
真诚的感谢styhs 前辈。
在学习ACCESS的道路上能得到你们的指点，真是太幸运了！
感谢