mut @ Сегодня, 12:44 ,

Спасибо за наводку!

Set Spr = v7.CreateObject("...")

!!! конечно SET
затупил.
и соответственно Dim Spr As Object

1С 7.7 (7.70.027)
в базу Access 2003 надо импортировать некоторые данные

Код:

Public Sub v7Connect()
    Dim v7 As Object
    Dim Spr As String
    
    Set v7 = CreateObject("V77.Application")
    iscon = v7.Initialize(v7.RMTrade, "/d D:\1cBase7\Torg /nant", "NO_SPLASH_SHOW")
    If iscon Then
        Spr = v7.CreateObject("Справочник.Контрагенты") ' Type mismach
    End If
    
End Sub

Подключается нормально
!!! Попытка получить ссылку на справочник - ошибка Type mismach

??? В чем проблема?