Sub ShowColumn(fldObject As Field, intShow As Integer)
    ' Задает значение свойства ColumnHidden.
    SetFieldProperty fldObject, "ColumnHidden", dbLong, Not intShow
End Sub

Sub SetFieldProperty(fldField As Field, strPropertyName As String, _
        intPropertyType As Integer, varPropertyValue As Variant)
    ' Задает значение свойства поля без генерирования кода невосстанавливаемой ошибки выполнения.

Const conErrPropertyNotFound =  3270 
    Dim prpProperty As Property
    On Error Resume Next                ' Не перехватывать ошибки.
    fldField.Properties(strPropertyName) = varPropertyValue
    If Err <> 0 Then                    ' Ошибка при задании значения.
        If Err <> conErrPropertyNotFound Then
            On Error GoTo  0 
            MsgBox  "Не удается задать свойство '" & strPropertyName _
                & "' для поля '" & fldField.Name & "'" ,  48 ,  "SetFieldProperty" 
        Else
            On Error GoTo  0 

Set prpProperty = fldField.CreateProperty(strPropertyName, _
                intPropertyType, varPropertyValue)
            fldField.Properties.Append prpProperty
        End If
    End If
End Sub

Dim dbs As DAO.Database
Set dbs = CurrentDb
ShowColumn dbs.QueryDefs![Запрос1].Fields![Количество], True
DoCmd.OpenQuery  "Запрос1" 

Dim dbs As DAO.Database
Dim strSQL As String
Dim intId as Integer 

  intId = 1 
  strSQL =  "SELECT Table1.field1, Table1.field2 FROM Table1 WHERE Table1.id="  & intID &  ";" 

Set dbs = CurrentDb
dbs.QueryDefs( "Запрос1" ).SQL = strSQL
DoCmd.OpenQuery  "Запрос1"