[firebase-br] VB.NET - Executar várias query dentro do mesmo

[Rodrigo Araújo]

    Pessoal estou precisando utilizar alguns recursos que utilizava no
SQLServer, e não estou conseguindo utilizá-los no FireBird. O código abaixo
não é executado, é exibido um erro dizendo que "variable", não é
reconhecido. Esse tipo de estrutura, só pode ser feito dentro de procedures
???

    Firebird 1.5
    Firebird .NET Data Provider - 1.7

    Att, Rodrigo Araújo.



Dim strConexao As String
Dim strSQL As String

strConexao =
"Database=C:\Rodrigo\MultiTestApplication\MultiTestApplication\MultiTestApplication\bin\BDTESTE.FDB;User="
& Me.txtLogin.Text & ";Password=" & Me.txtSenha.Text &
";Dialect=3;ServerType=1;Pooling=False"

Dim oConn As New Firebird.FbConnection(strConexao)

oConn.Open()
strSQL = "declare variable var_Coluna INTEGER;" & _
              "BEGIN" & _
              "      select count(1) as qtd from tabela where coluna =
'teste'; " & _
              "      INTO :var_Coluna ;" & _
              "      IF var_Coluna > 0 THEN " & _
              "            insert into tabela (Coluna) values ('teste');" &
_
              "      END " & _
              "END"

Try
      Dim oCmd As New Firebird.FbCommand(strSQL, oConn)
      oCmd.ExecuteNonQuery()

Catch ex As Exception

MsgBox(ex.Message)

End Try