求助：怎么用VBA去编写一个查询程序。

fsunboy

怎么才可以确认有这条记录，或者是没有这条记录！！谢谢。

zhuyiwen

通过记录集可以看到查询结果：

Private Sub GetQueryResult()
Dim rs As New ADODB.Recordset

    rs.Open "YourQuery", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If rs.RecordCount>0 Then
        MsgBox "YourQuery has " & rs.RecordCount & "record(s)."
    Else
        MsgBox "Nothing in yourQuery!"
    End If
End Sub