Function SQLExecute
 
   Dim oraReader As OracleDataReader
   Dim oraCommand As OracleCommand
   ....
   connect auf bauen und und und 
   ....
   Try
      oraReader = oraCommand.ExecuteReader()
   Catch ex As Exception
      MsgBox(ex.Message)
      Return False
   End Try
 
end function