データベースに警告が発生したときにイベントを発生させたくて、
下記のようなコードを作成したのですが、イベントが発生してくれません。
なにかほかにも必要なコードがあるのでしょうか？



Private WithEvents connection As OracleConnection

Private Sub connection_InfoMessage(ByVal sender As Object, _
　　　　　　　　　　　　　　　　　 ByVal e As System.Data.OracleClient.OracleInfoMessageEventArgs) Handles connection.InfoMessage
　Console.WriteLine(e.Message)
End Sub