Dim dbs As DAO.Database
Set dbs = CurrentDb
Dim qdf As DAO.QueryDef
Dim strSQL As String
Dim rst As DAO.Recordset
strSQL =  "PARAMETERS [CONTRACT_ID:] Integer; "  & _
   "SELECT * FROM CONTRACT WHERE CONTRACT_ID = [CONTRACT_ID:] ; " 

Set qdf = dbs.CreateQueryDef( "", strSQL)
qdf(" CONTRACT_ID: ") = CNTR_ID

Set rst = qdf.OpenRecordset(dbOpenSnapshot)

If rst.RecordCount = 0  Then
  MsgBox "No records found! "
Else
  MsgBox " Contract found"
  rst.MoveFirst
  While not rst.EOF
    rst.MoveNext
  Wend

  rst.MoveFirst
  While not rst.EOF
    rst.MoveNext
  Wend
End If