Dim dataCnn As New OracleConnection("Data Source=myServer;User Id=myLog;Password=myPswd;Integrated Security=no;")
        Try
            dataCnn.Open()
            MessageBox.Show("Подключение к '" & dataCnn.DataSource & "' установлено.")

            Dim myQuery As String = "BEGIN :Result:=MYDB.MYFUNC(:p1,:p2); END;"

            Dim dataCmd As New OracleClient.OracleCommand(myQuery, dataCnn)
            dataCmd.CommandType = CommandType.Text

            dataCmd.Parameters.AddRange(New OracleParameter() { _
                            New OracleParameter("Result", OracleType.Int32, 0, ParameterDirection.Output), _
                            New OracleParameter("p1", OracleType.Int32, 0, ParameterDirection.Input) With _
                                                                                            {.Value = 980769}, _
                            New OracleParameter("p2", OracleType.DateTime, 0, ParameterDirection.Input) With _
                                                                                            {.Value = Date.Now.Date}})

            dataCmd.ExecuteNonQuery()
            MessageBox.Show(dataCmd.Parameters("Result").Value.ToString())

        Catch ex As OracleException
            MsgBox(ex.ToString)
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            If dataCnn IsNot Nothing AndAlso dataCnn.State <> ConnectionState.Closed Then dataCnn.Close()
        End Try