Dim Test As Object
Set Test = Connect.OneC.CreateObject("Запрос")
Dim zpr As String
zpr = "Выбрать Справочник.Товары.Код как Код,Справочник.Товары.Наименование как Наименование,Справочник.Товары.Артикул как Артикул,Справочник.Товары.Единица.Код как Единица,Регистр.ОстаткиТоваров.ОстатокТовара как Остаток" _
    & " из Справочник.Товары,Регистр.ОстаткиТоваров" _
    & " где Остаток > 0" _
    & " сгруппировать по Наименование"
    
If Not Test.Выполнить(zpr) = 0 Then
    MsgBox "1"
Else
    MsgBox "Ошибка"
End If