' Здесь практически все!'
  Dim dbs As DAO.Database
  ' Подключаемся к текущей БД'
  Set dbs = CurrentDb
  Dim qdf As DAO.QueryDef
  Dim rst As DAO.Recordset
  Dim strSQL As String

  ' Создаем запрос с параметром'
  strSQL =  "PARAMETERS [CONTRACT_ID:] Integer; "  & _
     "SELECT * FROM CONTRACT WHERE CONTRACT_ID = [CONTRACT_ID:] ; " 
  Set qdf = dbs.CreateQueryDef( " " , strSQL)

  ' Задаем параметр'
  qdf( "CONTRACT_ID:" ) = CNTR_ID


  ' qdf.Execute (dbFailOnError) Используем когда надо выполнить UPDATE, INSERT или DELETE'

  Set rst = qdf.OpenRecordset(dbOpenSnapshot)
  
  ' Переходим на первую запись'
  rst.MoveFirst

  ' Проходим по всем строкам и выдаем значение поля CADDON_ID'
  While Not rst.EOF
    msgbox rst.Fields( "CADDON_ID" ).value
    rst.MoveNext
  Wend