Friend WithEvents JHCHARGE_SHOW As OracleCommand
 
Dim Abfrage As String
Abfrage = "SELECT JH_CHARGE.* FROM JH_CHARGE ORDER BY DEACTIVATION DESC"
JHCHARGE_SHOW = New OracleCommand(Abfrage, DBOracle)
Dim dr As OracleDataReader = JHCHARGE_SHOW.ExecuteReader()
If dr.Read() Then
  ' Befehle
End if