Get query Data???

[cppiston]

Private Sub TextJobID_LostFocus()

Dim stRunCheck As String
stRunCheck = "qryJobID_Check"

DoCmd.OpenQuery stRunCheck, acViewNormal, acEdit



Dim inJobID As Integer
Dim inCheckResult As Integer

inJobID = Forms!frmOP2.TextJobID
inCheckResult = ??????????? <<<This is for
the result of
qryJobID_Check

If (inJobID <> inCheckResult) Then MsgBox &quot;Job not Found!&quot;

Question: How can I get the data retrieved by the query and assign it to inCheckResult, so I can compare the two...

Or, does anyone have a better Idea???

Thanks....