Private Sub CommandButton1_Click()
    Set V7 = CreateObject("V77.Application")
    o = V7.Initialize(V7.RMTrade, "/dU:\1cbase\....\ /Nюзер /pпароль", "")
    If Not o Then
        MsgBox "Error!"
    Else
        S = "предупреждение(""Открываем!"");" + _
            "д=создатьОбъект(""Документ""); " + _
            "если д.НайтиПоНомеру(""16217"",""06.09.06"",""БанковскаяВыписка"")=1 тогда" + _
            "ОткрытьФормуМодально(д.ТекущийДокумент(),,);" + _
            "иначе  предупреждение(""Нет док!"");   конецесли;"
        V7.ExecuteBatch S
    End If
End Sub