Dim cnSQL As ADODB.Connection
    Set cnSQL = CreateObject("ADODB.Connection")
    cnSQL.Provider = "SQLOLEDB.1"
    cnSQL.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Baza;Data Source=Server"
    On Error GoTo CnErrorHandler
    cnSQL.Open
    
    Dim rsSQL As ADODB.Recordset
    Set rsSQL = CreateObject("ADODB.Recordset")
    rsSQL.CursorType = adOpenKeyset
    rsSQL.LockType = adLockOptimistic

   SQuery = "Select Z.NumPack " _
& " from ZakazDoc Z with (nolock)  " _
& " where Z.NumPack in (393042 , 393008 , 393306) group by Z.NumPack"

   rsSQL.Open SQuery, cnSQL
   MsgBox rsSQL.RecordCount
...

   SQuery = "Select Z.NumPack " _
& " from ZakazDoc Z with (nolock)  " _
& " where Z.NumPack in (393042 , 393008 , 393306) "

    While Not rsSQL.EOF
             MsgBox rsSQL.Fields( 0 )
        rsSQL.MoveNext
    Wend