Dim returnValue As Object
        Dim cmd As OracleClient.OracleCommand
        cmd = New OracleClient.OracleCommand("Select Administrator FROM" & _
          "TBIID_MYUSERS where USRNAME = :User", Connection2Oracle)
'Administrator ist Varchar
        cmd.Parameters.Add(":User", OracleClient.OracleType.VarChar, 50)
        cmd.Parameters(":User").Value = Environment.UserName.ToString
 
        Me.Connection2Oracle.Open()
        'Me.CMD_UserRechte.Parameters.Item("User").Value = 
        ' Environment.UserName.ToString
        returnValue = cmd.ExecuteScalar()
        Me.Connection2Oracle.Close()
        MsgBox(returnValue)