проапгрейдили IB сервер с 5.5 до 6-ки

у меня установлен клиент из IB 5.5
пишу на VB
пробую создавать хранимую процедуру


Dim con1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Dim eStr As String

Set con1 = New ADODB.Connection
Set cmd1 = New ADODB.Command

con1.Open "Provider=MSDASQL.1;Password=masterkey;UID=sysdba;DSN=bal;database=localhost:c:\ttt.gdb"



eStr = "create procedure vit78 " & Chr(13) & _
"returns ( " & Chr(13) & _
"num_ved integer " & Chr(13) & _
") as " & Chr(13) & _
"begin " & Chr(13) & _
"for select ""p33"" from form8 into :num_ved " & Chr(13) & _
"do " & Chr(13) & _
"suspend; " & Chr(13) & _
"end "

cmd1.ActiveConnection = con1
cmd1.CommandText = eStr
cmd1.Execute


ругается,
SQL error code -817
Metadata update statement is not allowed by the current database SQL dialect 3

что делать ?

не нашел в свойствах odbc соединения установку версии диалекта ;-(.
а прогнать SET SQL DIALECT=3 из VB не проходит

Intersolv
от IB 5