Private Sub Command10_Click()
Dim trade As Object
Dim spr As Object
Dim Count As Integer
Dim PathBase As String:     PathBase = "D:\DatBas1S\RTEC_2013"
Dim User As String:         User = "Administrator"
Dim Password As String:     Password = ""
Dim v77 As Object, result As Variant
Set v77 = CreateObject("V77.Application")
result = v77.Initialize(v77.RMTrade, " /D" + PathBase + " /N" + User + " /P" + Password + " /m", "NO_SPLASH_SHOW")
Set spr = v77.EvalExpr("СоздатьОбъект(""Справочник.Необходимый"")")
spr.Новый
spr.Записать
End Sub